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DPM/DPM-PLUS 
DOCUMENTATION  SET 

The  DPM/ l)PM-PLUS  documentation  set  consists  of  three  manuals.  These  manuals  describe  how  to 
generate,  program,  and  operate  a  DPM/DPM-PLUS  system.  The  three  manuals  are: 

•  DPM/DPM-PLUS  System  Generation  and  Management  Guide,  AA-J53 1 B-TC 

This  manual  is  intended  for  personnel  responsible  for  the  generation  and  overall  operation  of  a 
DFM/DPM-PLUS  system.  The  manual  describes  how  to:  generate  a  DPM/DPM-PLUS  sys- 
tem, get  the  system  running,  verify  the  generation,  run  utilities,  shut  down  the  system,  and  in- 
terpret system  errors. 

•  DPM/DPM-PLUS  DECdataway  Intelligent  Subsystem  User's  Guide,  AA-J529B-TC 

This  manual  is  intended  for  application  programmers  who  write  host  and  remote  application 
tasks.  The  manual  describes  how  to  program  and  operate  a  DPM50  or  DPM23,  two  DECdata- 
way Intelligent  Subsystems  (DIS).  It  explains  how  a  DIS  communicates  with  a  DPM  host  over 
the  DECdataway. 

•  DPM/DPM-PLUS  Terminal  User's  Guide,  AA-J530B-TC 

This  manual  is  intended  for  application  programmers.  It  describes  how  to  write  DPM  host  ap- 
plication programs  that  can  communicate  with  terminals  ovei  the  DECdataway,  and  how  to 
run  host  application  tasks  from  DECdataway  terminals. 

MANUAL  ORGANIZATION 
This  manual  has  four  parts: 

Part  I  introduces  DPM/DPM-PLUS  network  communications  concepts. 

Part  II  describes  the  FORTRAN  calls  and  MACRO  directives  by  which  tasks  in  the  host  and  in  the 
remotes  crmmunicate. 

Part  III  describes  the  set  of  available  network  utilities. 

Part  IV  contains  additional  notes  on  the  operation  of  the  network. 

RELATED  DOCUMENTS 

In  order  to  use  DPM/DPM-PLUS,  you  must  be  thoroughly  familiar  with  the  operating  system.  Please 
refer  to  the  RSX-llM/RSX-l  IS  Documentation  Directory  (AA-2593E-TC)  or  to  the  RSX-llM-PLUS 
Documentation  Directory  (AA-H426A-TC). 


The  following  manuals  describe  the  DPM/DPM-PLUS  hardware: 
KDFl  1  -  A  User's  Guide,  EK-KDFl  1-UG-PR2 

DPMOl  DECdataway  Terminal  Multiplexer  User's  Guide,  EK-DPMOl-UG-002 
DPM50  User's  Guide,  EK-DPM50-UG-002 

IPl  1/IP300/DPM50  Application  Programmer's  Manual,  AA-C877C-TC 
DPMOl  DECdataway  Terminal  Multiplexer  Technical  Manual,  EK-DPMOl-TM-001 
DPM50  Technical  Description,  EK-DPM50-TD-001 
DECdataway  User's  Guide,  EK-ISBl  1-UG-PRE 

Remote  Terminals  RT801,  RT803,  RT805  User's  Guide,  EK-RT80X-UG-001 
Remote  Terminals  RT801,  RT803,  RT805,  Technical  Description,  ED-RT80X-TM-001 

CONVENTIONS  USED  IN  THIS  MANUAL 

In  command  examples  and  messages,  upper-case  characters  always  appear  literally  as  shown;  lower-case 
characters  represent  variable  information. 

In  dialogue  examples,  user  input  is  shown  in  red. 

All  commands  are  terminated  by  pressing  RETURN,  which  is  not  shown  explicitly  in  this  manual. 

Shaded  text  applies  only  to  DFM-PLUS. 

Optional  parameters  in  the  FORTRAN  subroutine  calls  and  MACRO  requests  are  preceded  by  commas 
and  within  square  brackets.  If  all  optional  parameters  for  a  call  or  request  are  omitted,  no  comma  after 
the  required  portions  is  necessary.  However,  if  an  optional  parameter  is  specified,  and  other  optional  pa- 
rameters have  been  omitted  to  its  left,  commas  must  be  used  to  shovf  the  empty  fields. 
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PART  I:  INTRODUCTION 


CHAPTER  1 

INTRODUCTION  TO  THE  DISTRIBUTED 
PLANT  MANAGEMENT  NETWORK 


This  manual  describes  how  to  program  DECdataway  Intelligent  Subsystems  (DIS).  A  DIS  is  one  com- 
ponent of  a  Distributed  Plant  Management  (DPM)  system.  DPM  systems  are  divided  into  DPM  and 
DPM-PLUS  systems,  running  under  RSX-1 IM  and  RSX-1 IM-PLUS  respectively.  In  this  manual,  both 
systems  are  referred  to  as  DPM  systems,  except  where  the  systems  are  specifically  differentiated.  Both 
types  of  DPM  systems  provide  communications  tools  using  the  DECdataway.  The  classes  of  DPM  DEC- 
dataway communications  are: 

•  Terminal  Communications.  Tasks  in  the  DPM  host  can  communicate  with  standard  CRT 
terminals,  hard  copy  terkninals,  and  ruggedized  special  purpose  terminals. 

•  Network  Communications.  Tasks  in  the  DPM  host  and  tasks  in  remotes  (also  called  DISs  or 
nodes)  can  communicate  with  each  other. 

1.1     DECdataway  INTELLIGENT  SUBSYSTEMS  (DIS) 

DECdataway  Intelligent  Subsystems  (DIS)  use  one  of  the  family  of  LSI- 11  processors,  running 
RSX-1  IS  as  nodes  in  a  distributed  network.  The  basic  components  of  the  DPM  network  are: 

1 .  Host  computer 

2.  DECdataway 

3.  DIS  (remote  node) 

The  host  is  one  of  the  family  of  PDP-1 1  computers,  running  RSX-1  IM  oi  RSX-1  IM-PLUS.  Program 
development  is  done  on  the  host. 

The  DECdataway  consists  of  a  front-end  communications  processor  integrated  with  the  DPM  host,  a 
data  cable  (up  to  15,000  feet  long),  and  attached  devices.  Many  nodes  can  be  connected  to  the  host 
computer  through  the  same  DECdataway. 

A  remote  can  be  either  a  DPM50  DECdataway  I/O  Subsystem,  or  a  DPM23  Programmable  DECdata- 
way Subsystem.  Each  remote  contains  one  of  the  family  of  LSl-1 1  microcomputers  that  manages  func- 
tions for  the  remote.  The  nodes  execute  RSX-1  IS,  a  memory-only  subset  of  the  host  operating  system. 
DIS  user  programs  may  be  written  in  either  MACRO-1 1  assembly  Ian  jage  or  in  FORTRAN  (either 
FORTRAN-IV/IAS-RSX  or  FORTRAN-77). 

A  DPM 50  and  a  DPM23  have  identical  software  and  communication  capabilities.  The  major  differen- 
ces between  the  two  types  of  remotes  are: 

•  A  DPM50  has  either  a  LSI-1 1  or  LSI-1 1/23  as  its  processor.  (In  this  manual,  a  DPM50 
with  a  LSI-1 1/23  is  referred  to  as  a  DPM50H.  A  DP^  JO  that  does  not  have  a  LSI-1 1/23  is 
referred  to  as  a  DPM50C.)  A  DPM23  has  an  LSI-1 1/23. 
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•  The  mounting  boxes  are  different.  The  DPM23  can  accommodate  a  greater  number  of  pe- 
ripherals. The  DPM50  is  designed  to  fit  in  a  NEMA-12  enclosure,  for  protection  against 
harsh  environments. 

•  An  I/O  Control  module  (lOCM)  for  process  I/O  modules  is  standard  with  a  DPM.50.  It  is 
optional  with  a  DPM23. 

1.2    THE  DPM  NETWORK'S  COMMUNICATIONS  FACILITY 

As  shown  in  Figure  1-1 ,  the  DPM  Network  is  structured  with  hardware  and  software  layers;  each  layer 
has  both  a  host  and  a  remote  component.  There  are  three  layers: 

1.  Communications  Hardware 

2.  Operating  System  Drivers 

3.  Network  Software 

1.2.1     Communications  Hardware 

The  communications  hardware  consists  of  the  DECdataway  controller  (ISBl  1)  in  the  DPM  host  com- 
puter, and  the  DECdataway  remote  interface  (ISVll)  in  the  DIS.  The  ISBll  and  ISVII  provide 
modem  circuits  and  control,  serial-to-parallel  and  parallel-to-serial  conversion,  error  detection,  and  er- 
ror recovery.  They  both  have  direct  memory  access  (DMA)  to  their  respective  computer  systems.  The 
ISBll  supports  as  many  as  63  DECdataway  addresses  (depending  upon  system  configuration),  and 
can  process  concurrent  I/O  requests  for  each  address.  Each  ISVl  1  responds  to  two  DECdataway  ad- 
dresses. The  lower  of  the  two  addresses  is  referred  to  as  the  base  port. 


DPM  HOST 


DIS  REMOTE 


USER  TASK 

USER  TASK 

NIDRV 

>                    Network  Software                    < 

V. 

NIDRV 

ACP 
(DPM50H) 

ACP 
(DPM50R) 

SBDRV 

Drivers 
Communications  Hardware 

SVDRV 

ISBl  1 

ISV11 

DECdataway 


Figure  1-1     DIS  Subsystem  Components 
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1.2.2    Operating  System  Drivers 

The  operating  system  drivers  provide  a  standard  operating  system  interface  to  the  communications 
hardware.  The  drivers  consist  of  the  DECdataway  controller  driver  (SBDRV)  in  the  host,  and  the 
DECdataway  remote  interface  driver  (SVDRV)  in  the  remote.  The  drivers  accept  I/O  requests 
(QIOs)  from  the  level  above  them,  and  translate  the  requests  into  commands  to  the  communications 
hardware. 


SBDRV  treats  each  DECdataway  address  as  a  separate  physical  device  unit.  The  fact  that  different 
physical  units  are  accessed  through  common  hardware  is  transparent  to  software  above  the  driver  level. 
SBDRV  supports  its  devices  much  as  a  terminal  driver  supports  multiplexers,  e.g.,  the  DZl  1.  This  is 
opposed  to  the  way  multiple  drivers  attached  to  a  single  disk  controller  are  supported. 

To  provide  logical  full-duplex  communications  on  the  DECdataway,  the  ISVl  1  responds  to  two  DEC- 
dataway addresses.  SVDRV  treats  these  two  addresses  as  separate  physical  device  units  and  can  pro- 
cess an  I/O  request  on  each  of  its  two  addresses  simultaneously. 

1.2.3    Network  Software:  Task-to-Task  Communication 

Application  programs  interface  to  the  DPM  Network  Software.  Two  components,  the  DPM  Network 
Ancillary  Control  Processor  (ACP)  and  the  DPM  Network  Driver  (NIDRV),  are  supplied  in  both  host 
and  remote  versions  to  implement  intertask  communications.  The  Network  ACP  is  called  DPM50H 
for  the  host  and  DPM50R  for  the  remote.  The  Network  Driver  is  called  NIDRV  for  both  the  host  and 
remote. 


The  Network  Driver  (NIDRV)is  loaded  like  other  RSX-1 IM  drivers.  A  user  task  assigns  a  logical  unit 
to  device  NI:.  NIDRV  is  termed  a  stub-driver  because  it  does  not  directly  control  a  physical  device. 
Most  I/O  requests  directed  to  the  Network  Driver  are  actually  processed  by  the  Network  ACP,  after 
preliminary  error  checking  has  been  completed  by  the  Network  Driver. 

Host  and  remote  application  tasks  constitute  the  highest  level  of  the  network.  Before  tasks  can  begin  to 
communicate,  however,  they  must  establish  a  logical  connection.  A  logical  connection  is  established 
once  each  task  has  issued  a  request  to  be  connected  to  the  other.  Once  the  connection  has  been  estab- 
lished, the  tasks  exchange  data  by  issuing  Transmit  and  Receive  requests.  Either  task  can  break  a 
connection  by  specific  request.  The  connection  is  also  broken  if  one  of  the  tasks  exits. 

1.3    SUPPORTED  LANGUAGES 

Programs  that  use  the  DIS  intertask  communication  facilities  can  be  written  in  FORTRAN-IV/IAS- 
RSX,  FORTRAN-77,  or  MACRO-11. 

Programs  written  in  MACRO-)  1  access  the  DPM  network  via  QIOs  to  device  NI:,  as  though  network 
I/O  were  physical  device  I/O.  Programs  written  in  FORTRAN-IV  or  FORTRAN-77  access  the  net- 
work via  calls  to  supplied  subroutines. 
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1.4     UTILITY  TASKS 

A  variety  of  utility  tasks  have  been  provided.  Table  1-1  describes  the  utilities  covered  in  this  manual: 


Table  1-1     Utilities  Covered  in  this  Manual 


Utility 


Description 


DLC 


ULD 

UPDUMP 
NISTAT 


The  Dowi;  \  'ne  Control  Task  (DLC)  loads  RSX-1  IS  system  images  into  the 
DIS  memory  over  the  DECdataway.  Once  the  remote  is  running,  DLC  can 
invoke  the  host  network  software  to  open  a  logical  channel  between  the  host 
and  remote  Network  ACPs  so  that  tasks  can  request  logical  connections  and 
begin  to  exchange  data. 

DLC  is  also  used  during  DPM  start-up;  for  details  of  its  use  during  start-up, 
please  refer  to  the  DPM/DPM-PLVS  System  Generation  and  Management 
Guide. 

The  Up-Line  Dump  Program  (ULD)  is  used  to  read  the  memory  of  a  remote 
and  to  write  its  contents  into  a  file  on  a  host  FILES- 1 1  device.  The  file  can  be 
analyzed  with  the  RSX-1  IM  Crash  Dump  Analyzer  (CDA). 

An  interactive  program  that  displays  or  lists  at  a  host  terminal  the  contents  of 
memory  and/or  the  contents  of  registers  in  a  remote. 

The  Network  Status  Reporter  reports  open  DIS  nodes  and  their  logical  con- 
nections. 


Table  1-2  describes  other  available  utilities.  These  utilities  would  most  likely  be  of  use  to  the  System 
Manager,  and  are  described  in  full  in  the  DPM/DPM-PLVS  System  Generation  and  Management 
Guide. 


Utility 


Table  1-2     Utilities  Covered  in  the  DPM/DPM-PLVS  System 
Generation  and  Management  Guide 


Description 


CBC 
CONFIG 


SPY 


Displays  and  changes  DECdataway  device  assignments. 

The  CONFIG  utility,  consisting  of  host  task,  CNFIGH;  a  remote  task, 
CNFIGR;  and  an  RSX-1  IS  system  image,  CONFIG.SYS:  -.an  be  used  to  vali- 
date both  the  host  and  remote  build  procedures  for  DPM  systems  configured  to 
use  DECdataway  Intelligent  Subsystems.     ~" 

Dynamically  displays  activity  of  DECdataway  devices,  or  gives  a  snapshot  dis- 
play c  .  hardcopy  terminals. 
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PART  II:  NETWORK  PROGRAMMER'S  GUIDE 
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CHAPTER! 


INTRODUCTION  TO  NETWORK  PROGRAMMING 


Most  DPM  applications  require  the  ability  to  exchange  data  between  host  and  remote.  Host  operators 
need  to  adjust  parameters  and  query  current  status  in  a  remote,  and  a  remote  frequently  passes  reports 
and  summary  data  to  the  host.  In  DPM  systems,  the  ability  to  exchange  data  between  a  pair  of  tasks, 
one  in  the  DPM  host  and  one  in  a  remote,  is  termed  intertask  communication. 

The  DPM  network  software  provides  full-duplex  communication  channels  between  tasks  running  in 
DISs  under  RSX-llS,  and  tasks  running  in  a  DPM  host.  A  host/remote  task  pair  must  establish  a 
logical  connection  before  they  can  begin  to  exchange  data. 

A  logical  connection  is  a  conversation  path  between  two  tasks.  Connections  are  established  between 
host/remote  tasks  requesting  connection  to  one  another.  When  requesting  a  connection,  a  host  task 
specifies:  (1)  the  remote;  and  (2)  the  task  in  the  remote  with  which  it  wishes  to  connect.  A  remote  task 
specifies  the  name  of  the  host  task  with  which  it  wishes  to  connect. 

A  task  in  the  DPM  host  can  establish  connections  to: 

•  A  task  in  a  DIS 

•  Multiple  tasks  in  the  same  DIS 

•  Multiple  tasks  in  multiple  DISs 

Tasks  in  the  DPM  host  cannot  communicate  directly  with  other  tasks  in  the  host,  using  the  network 
software. 

A  task  in  a  DIS  can  establish  connections  to: 

U      A  task  in  the  DPM  host 

•  Multiple  tasks  in  the  DPM  host 

Tasks  in  a  DIS  cannot  communicate  directly  with  other  tasks  in  the  DIS,  using  the  network  software. 

The  maximum  number  of  connections  that  can  be  concurrently  established  from  the  set  of  tasks  in 
each  DIS  to  tasks  in  the  DPM  host  is  32.  These  connections  can  be  allocated  to  tasks  in  any  mixture.  It 
should  not  be  assumed,  however,  that  every  system  image  has  sufficient  space  in  its  dynamic  storage 
region  to  support  32  active  connections. 


2.1     OVERVIEW  OF  COMMUNICATION  FUNCTIONS 

Network  Communication  Functions  fall  into  two  areas: 

1.  Connection  Control  Functions 

2.  Data  Transfer  Functions 

2.1.1     Connection  Control  Functions 

Connection  Control  Functions  are  used  to  initiate  and  terminate  connections  between  host  and  remote 
tasks.  They  fall  into  the  following  categories: 


Connect 


Disconnect 


Reject 


Used  to  request  a  connection  with  a  specific  task  in  a  specific 
node.  For  a  task  in  the  remote,  the  node  is  always  the  host. 

Used  to  terminate  an  active  connection  or  a  pending  Connect 
request  from  the  issuer. 

Used  by  a  host  task  to  reject  a  specific  Connect  request  for  that 
host  task  from  a  remote  task. 


I 


2.1.2    Data  Transfer  Functions  * 

Data  Transfer  Functions  are  used  to  exchange  data  across  a  connection.  They  fall  into  the  following 
categories: 


Transmit 


Receive 


Send  Interrupt 


Receive  Interrupt 


Used  to  send  data  across  a  connection.  The  intended  recipient 
must  issue  a  Receive  in  order  to  get  the  data. 

Used  to  enable  receipt  of  data  sent  over  a  connection  by  a  Trans- 
mit. A  separate  Receive  is  required  for  each  Transmit  request. 

Used  to  send  short  (up  to  1 6  bytes)  blocks  of  priority  data  over  a 
connection.  Interrupt  data  is  sent  ahead  of  normal  (transmit)  data. 

(FORTRAN  only.)  Used  to  enable  receipt  of  interrupt  data  over  a 
connection.  This  function  does  not  apply  to  tasks  written  in 
MACRO,  since  they  receive  interrupt  messages  via  ASTs. 


2.2      ESTABLISHING  A  LOGICAL  CONNECTION 

A  sequence  of  events  is  required  for  a  pair  of  tasks  to  communicate: 

1.  A  communications  channel  is  established  between  the  host  Network  ACP  and  the  remote 
Network  ACP  by  DLC  (the  Down-Line  Control  Task). 

2.  A  communications  connection  is  established  between  a  task  in  the  DFM  host  and  a  task  in 
the  DIS  when  each  task  has  issued  a  connection  request  to  its  partner.  Many  connections  can 
share  a  communications  channel,  once  the  channel  has  been  established. 

3.  Once  a  connection  has  been  established,  a  task  pair  exchanges  data  via  Transmit  and  Re- 
ceive directives.  The  connection  remains  intact,  regardless  of  Transmit/Receive  traffic,  until 
it  is  broken  by  one  of  the  following: 

•  An  explicit  Disconnect  request  by  either  of  the  two  connected  tasks 

•  Closing  the  communications  channel  via  DLC 

•  When  one  of  the  two  connected  tasks  exits  or  is  aborted  or  issues  an  abort  request 
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A  connection  supports  full-duplex  communication  between  two  connected  tasks;  a  task  which  has  an 
outstanding  Receive  request  can  issue  a  Transmit  request  through  the  same  connection.  Transmits  and 
Receives  are  independent;  i.e.,  a  task  which  has  issued  both  a  Receive  request  and  a  Transmit  request 
cannot  predict  which  will  complete  first. 

A  Transmit  request  cannot  be  completed  until  the  target  task  has  issued  a  corresponding  Receive 
request.  If  a  Transmit  request  is  issued  to  a  target  task  which  does  not  have  a  Receive  request  already 
pending  on  this  connection,  the  Transmit  remains  pending  until  the  target  task  issues  its  Receive 
request.  For  tasks  with  multiple  connections,  each  connection  is  independently  full-duplex. 

2.3    NORMAL  AND  INTERRUPT  MESSAGES 

Data  can  Le  exchanged  by  two  connected  tasks  in  two  ways:  asing  Transmit  requests  paired  with  Re- 
ceive requests  (interlocked),  or  using  interrupt  messages  (non-interlocked).  Interlocked  transfer  is  the 
normal  mode  of  operation. 

Interrupt  messages  are  short  messages  that  are  handled  ahead  of  normal  Transmit/ Receive  messages. 
They  actually  "break  through"  a  normal  message  that  is  in  progress.  They  also  differ  from  normal  mes- 
sages in  the  degree  and  nature  of  cooperation  required  between  the  two  connected  tasks. 

Other  differences  between  normal  and  interrupt  messages  that  should  be  noted  are: 

•  The  maximum  message  size  is  much  shorter  for  interrupt  messages  than  it  is  for  normal 
messages. 

•  Normal  messages  are  synchronized  between  the  transmitting  and  receiving  tasks,  i.e.,  the 
Transmit  request  is  not  marked  completed  until  it  has  been  received  by  the  target  task.  This 
is  not  the  case  for  interrupt  messages. 

Interrupt  messages  and  normal  messages  are  both  variable-length  byte  strings.  The  minimum  size  of 
either  message  is  one  byte.  Maximum  size  for  an  interrupt  message  is  16  bytes.  Maximum  size  for  a 
normal  message  is  16,384  bytes.  Both  interrupt  and  normal  messages  must  start  on  even-byte  bound- 
aries. 


2.4  EFFECTS  OF  ASYNCHRONOUS  TRANSMISSION  ON  MESSAGE  SEQUENTIALITY 

A  task  pair,  one  of  which  expects  to  transmit  several  messages  in  a  brief  interval  of  time  to  the  other, 
can  decrease  response  time  by  respectively  issuing  more  than  one  (asynchronous)  Transmit  and  more 
than  one  Receive  request,  but  the  possible  consequences  should  be  considered.  Receive  requests  are 
completed  in  the  order  in  which  the  transmitting  task  issues  Transmit  requests,  barring  errors.  If  an 
error  occurs,  the  messages  are  not  received  in  the  same  order  as  they  were  transmitted.  Therefore,  if 
message  sequentiality  is  important  to  a  receiving  task,  the  transmitting  task  should  not  issue  a  Trans- 
mit request  until  all  previous  Transmits  have  been  successfully  completed. 

2.5  INTERPROCESSOR  TIME-OUT  SUPPORT 

Interprocessor  time-out  support  offers  a  means  of  detecting  a  cable  break  or  a  system  crash,  and  of 
alerting  the  affected  tasks  in  the  DPM  host,  as  well  as  in  the  DlSs. 

The  network  is  designed  to  ride  through  transient  interruptions  in  the  DECdataway  between  host  and 
remote,  transparently  to  user  software.  When  the  host  ACP  detects  that  the  remote  has  gone  off-line, 
the  current  status  of  each  connection  is  preserved.  The  channel  and  connections  remain  open  ana  all 
I/O  requests  (Connect,  Disconnect,  Transmit,  and  Receive)  in  progress  or  initiated  after  the  commu- 
nications outage  remain  pending.  When  communications  are  restored  all  I/O  completes.  When  the 
remote  ACP  detects  that  the  host  does  not  respond,  it  takes  identical  action. 
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If  an  outage  is  prolonged,  the  con  ating  tasks  may  wish  to  take  some  alternative  action.  In  this  case, 
the  tasks  may  specify  time-out  support  in  their  Connect  requests.  (The  time-out  interval  itself  must 
have  been  specified  in  the  DLC  command  which  booted  the  DIS.)  If  the  time-out  specification  has 
been  made,  the  host  and  the  remote  will  exchange  at  least  one  message  during  each  time-out  interval. 

If  the  communication  cannot  occur,  the  cooperating  tasks  are  notified.  This  notification  occurs  as  long 
as  the  task  has  an  open  connection — there  is  no  need  for  the  task  to  be  transmitting  or  receiving.  The 
task  may  exit  successfully,  invoke  DLC  to  close  the  communications  channel,  or  take  whatever  other 
action  is  appropriate.  The  task  cannot  cancel  network  activity  (Transmits,  Receives,  etc.)  during  such 
an  outage,  except  by  aborting  the  connections. 

The  task  is  also  not  explicitly  notified  when  the  outage  ends  and  communications  are  restored;  however, 
at  that  time  all  pending  network  activity  proceeds  as  before.  The  task  could,  if  desired,  issue  a  "dummy" 
interrupt  message  when  notified  of  the  time-out;  when  the  interrupt  message  completes  successfully,  the 
task  knows  communications  have  been  restored. 

2.6     DIFFERENCES  BETWEEN  MACRO-11  AND  FORTRAN  SUPPORT 

The  MACRO-1  1  and  FORTRAN  interfaces  supply  the  same  capabilities  to  the  user,  with  the  following 
qualifications: 

•  Programs  written  in  MACRO-1 1  interface  to  the  DPM  network  via  QIOs  to  device  NI:,  as 
though  network  I/O  were  standard  physical  device  I/O.  Programs  written  using  FOR- 
TRAN-IV  or  FORTRAN-IV-PLUS  interface  to  the  DPM  network  service  via  subroutine 
calls. 


In  MACRO-11,  connections  are  identified  by  logical  unit  numbers  (LUNs).  FORTRAN 
users  reference  connections  by  an  array,  called  a  Connect  Block  Array.  Eacli  Connect  Block 
Array  must  refer  to  a  unique  LUN. 

I/O  completion  and  notification  of  task  disconnects  are  handled  in  the  MACRO  interface 
by  Asynchronous  System  Traps  (ASTs). 

FORTRAN  does  not  support  ASTs;  therefore,  tasks  using  the  FORTRAN  interface  cannot 
use  ASTs  for  I/O  completion,  and  more  particularly  cannot  specify  a  Disconnect  AST  to  be 
executed  when  the  logical  connection  is  severed.  Instead,  the  FORTRAN  caller  can  examine 
an  entry  in  the  connect  block  to  determine  the  current  status  of  the  connection. 
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Receipt  of  an  interrupt  message  is  handled  differently  for  FORTRAN  and  MACRO-1 1  tasks. 
When  an  interrupt  message  is  sent  to  a  MACRO-1 1  task,  it  is  delivered  on  that  task's  stack  via 
an  AST,  assuming  that  an  Interrupt  Message  Received  AST  was  specified  when  the  con- 
nection was  requested.  When  an  interrupt  message  is  sent  to  a  FORTRAN  task,  the  message  is 
delivered  to  the  buffer  specified  in  the  last  NIRCVI  call,  asssuming  that  the  NIRCVI  call  was 
made  prior  to  receipt  of  the  interrupt  message. 

These  two  mechanisms  are  equivalent  as  long  as  the  receiving  task  can  keep  pace  with  the 
transmitting  task.  The  effects  are  different,  however,  should  the  receiving  task  fall  behind. 
Interrupt  messages  for  a  MACRO-1 1  task  then  remain  in  the  Dynamic  Storage  Region 
(node  pool)  of  the  system  (host  or  remote)  in  which  the  receiving  task  is  running.  This  could 
cause  a  shortage  of  node  pool.  For  a  FORTRAN  task,  the  interrupt  messages  are  removed 
from  node  pool,  and  could  be  discarded. 

Care  should  be  taken  in  either  MACRO- 1 1  or  FORTRAN  tasks  to  avoid  having  interrupt 
messages  sent  more  frequently  than  the  receiving  task  can  handle  them. 
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CHAPTER  3 


INTERTASK  COMMUNICATION  IN  FORTRAN 


• 


The  DIS  FORTRAN  Interface  provides  a  full-duplex  communications  channel  between  tasks  running 
in  DISS  under  RSX-1  IS  and  tasks  running  in  a  DPM  host  under  RSX-1 IM  or  RSX-1 IM-PLUS.  Con- 
nections are  established  between  host/remote  tasks  that  request  connection  to  one  another.  When  re- 
questing a  connection,  a  host  task  specifies  both  the  remote  and  the  task  in  the  DIS  with  which  it 
wishes  to  connect;  a  remote  task  specifies  the  name  of  the  host  task  with  which  it  wishes  to  connect. 

Two  major  functions  are  performed  in  intertask  communication: 

1.  Connection  Control 

2.  Data  Transfer  Control 

3.1  CONNECTION  CONTROL  FUNCTIONS 

Connection  Control  Functions  are  used  to  initiate  and  terminate  connections  between  host  and  remote 
tasks.  They  fall  into  the  following  categories: 


Connect 


Disconnect 


NICONX 

Used  to  request  a  connection  with  a  specific  task  in  a  specific 
node.  For  a  task  in  the  remote,  the  node  is  always  the  host. 

NIDISC 

Used  to  terminate  an  active  connection  or  a  pending  Connect 
request  from  the  issuer. 


3.2  DATA  TRANSFER  FUNCTIONS 

Data  Transfer  Functions  are  used  to  exchange  normal  and  exception  data  across  an  open  connection. 
They  fall  into  the  following  categories: 


Transmit 


Receive 


NIXMIT/NIXMIW 

Used  to  send  data  across  a  connection.  The  intended  recipient 
must  issue  a  Receive  in  order  to  get  the  data. 

NIRCVD/NIRCVW/NIRCVC 

Used  to  enable  receipt  of  data  sent  over  a  connection  by  a  Trans- 
mit. A  separate  Receive  is  required  for  each  Transmit  request.  A 
special  Receive  is  included  to  allow  tasks  to  be  checkpointed. 
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Send  Interrupt 


Receive  Interrupt 


NISINT/NISINW 

Used  to  send  short  (up  to  16  bytes)  blocks  of  data  over  a  con- 
nection. Interrupt  data  is  sent  ahead  of  normal  (Transmit)  data. 

NIRCVI 

Used  to  enable  receipt  of  interrupt  data  over  a  connection. 


Those  calls  ending  in  W  (NIXMIW,  NIRCVW,  NISINW)  perform  the  same  actions  as  their  counter- 
parts without  W  (NIXMIT,  NIRCVD,  NISINT  respectively),  but  do  not  return  control  to  the  caller 
until  the  operation  has  completed.  An  event  flag  must  be  specified  with  these  calls. 
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3.3     PROGRAMMING  CONSIDERATIONS 

In  a  host/remote  task  pair,  each  task  must  request  connection  to  the  other  independently.  Tasks  are 
informed  when  a  connection  request  is  granted,  i.e.,  when  both  tasks  have  requested  a  connection.  Host 
tasks  can  use  the  subroutines  described  in  Chapter  5  to  discover  which  remote  tasks  have  requested 
connections  to  them. 

Each  connection  is  identified  in  FORTRAN  by  a  Connection  Status  '  ck  array  (icnxblk).  This  array 
is  specified  as  part  of  the  NICONX  call.  Other  calls  using  the  same  connection  must  reference  this 
same  Connection  Status  Block.  See  Section  3.4.1  for  a  description  of  icnxblk. 

3.3.1  Compiling  Tasks 

If  your  processor  is  a  DPM50H  or  a  DPM23  with  the  floating  point  option,  there  are  no  restrictions  on 
your  use  of  FORTRAN-"?. 

If  your  DIS  processor  is  one  of  the  following,  you  can  use  the  FORTRAN-77  compiler: 

1 .  DPM50C  (See  Section  1.1) 

2.  DPM50H  without  Floating  Point  option 

3.  DPM23  without  Floating  Point  option 
However,  you  must  observe  the  following  restrictions: 

•  You  cannot  use  any  floating  point  instructions.  The  compiler  message  "NO  FLOATING 
POINT  INSTRUCTIONS  GENERATED"  must  appear. 

•  Tasks  you  write  must  be  linked  to  the  module  F4PEIS.OBJ,  supplied  with  the  F77  kit. 

If  you  need  floating  f>oint  operations,  use  the  FORTRAN-IV  compiler,  and,  in  the  case  of  a  DPM50C, 
the  Floating  Instruction  Set  (FIS). 

3.3.2  Checkpointing  and  Shuffling  Tasks 

Tasks  in  the  DPM  host  can  eslablish  connections  to  tasks  in  remotes  and  still  be  checkpointed,  thus 
permitting  sharing  of  main  memory.  When  ihe  host  task  issues  a  Transmit  request  (normal  or  mterrupt 
message),  it  is  'ccked  in  memory  until  the  Transmit  request  is  completed.  Similarly,  the  host  task  is 
locked  in  memory  while  a  Receive  request  is  pending.  However,  a  checkpointed  host  task  can  be 
brought  back  into  main  memory  when  its  partner  task  issues  a  Transmit  (normal  or  interrupt  message) 
request. 
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Host  tasks  that  can  be  cherkpointed  have  full  access  to  all  capabilities  of  the  network.  They  can  issue 
any  of  the  FORTRAN  calls  described  in  this  and  later  chapters.  Note,  however,  that  if  you  issue  some 
of  these  calls,  the  task  can  no  longer  be  checkpointed  or  shuffled  until  the  function  has  been  com- 
pleted. Any  outstanding  QIO  prevents  a  task  from  being  checkpointed  or  shuffled.  NIRCVC  and 
N IRC VI  are  the  only  two  subroutines  that  do  not  immediately  issue  QIOs. 

Some  applications  need  fast  response  time  in  the  host  for  requests  from  remote  tasks.  In  these  cases, 
the  host  task  should  be  non-checkpointable  and/or  should  be  installed  in  its  own  partition.  Where  fast 
response  is  less  critical,  a  task  can  be  checkpointed  while  waiting  to  receive  data  across  the  connection 
by  issuing  the  NIRCVC  call,  instead  of  calling  NIRCVD  or  NIRCVW.  In  such  a  case,  the  host  task  is 
eligible  to  be  checkpoint  d  until  the  remote  partner  issues  a  Transmit  request.  The  task  is  then  brought 
into  memory  (if  it  was  cneckpointed  out)  to  receive  the  data. 

3.3.3  Completion  Status 

For  all  FORTRAN  calls  that  invoke  network  communications,  the  completion  status  is  returned  in  the 
first  word  of  an  V/O  Status  Block  Array  ists(l).  Directive  status  errors  are  also  returned  in  this  array. 

If  ists(l)  =  0,  the  operation  is  pending;  i.e.,  it  has  not  been  completed. 

If  ists(l)  =  -f  1,  the  operation  has  completed  successfully. 

If  ists(  1 )  contains  any  value  except  0  or  -t- 1 ,  an  error  was  detected  while  performing  the  operation.  The 
error  codes  returned  are  all  described  as  standard  RSX-llM  MACRO- 1 1  symbols,  as  defined  in  an 
Appendix  to  the  lAS/RSX-I  I  I/O  Operations  Reference  Manual.  Note  that  ists(l)  can  contain  one  of 
the  following  types  of  error  codes: 

•  If  ists(l)  is  less  than  0,  the  error  is  a  directive  status  error. 

•  If  ists(l)  is  greater  than  + 1,  the  error  is  an  I/O  Completion  error,  and  the  error  code  is  in 
the  low-order  byte  of  ists(l). 

Upon  successful  completion  of  a  FORTRAN  call  that  specifies  receipt  of  data,  i.e.,  NIRCVD, 
NIRCVW,  NIRCVC,  and  NIRCVI,  the  number  of  bytes  that  were  received  is  contained  in  the  second 
word  of  the  I/O  Status  Block  ists(2).  For  calls  that  do  not  specify  receipt  of  data  or  that  have  not  been 
successfully  completed,  ists(2)  is  irrelevant. 

3.3.4  Transmit  and  Receive  Data  Integrity 

When  a  Transmit  command  is  issued,  a  portion  of  the  transmit  buffer  is  temporarily  modified  by  the 
system  during  actual  data  transmission.  Accordingly,  a  task  must  not  use  or  modify  the  transmit  buffer 
between  issuing  a  Transmit  command  and  receiving  notification  of  the  completion  of  transmission. 

NOTE 
Under  RSX-UM-PLUS,  a  task  MIt  with  the  /MU 
switch  has  its  **read  only**  portioM  pwitected  IroM 
write  access  by  the  aMmory  uiMMgiitMi 
For  this  reason,  fai  aay  hoat  Ink  hviit 
RSX-llM-PLUS  Mii«  the  /MU  iwMch»  the 
■it  bvffer  mmH  not  be  p«t  in  a  *Veai  mij^ 
section  (via  .PSECT). 

The  transmit  buffer  is  always  restored  before  the  Transmit  request  is  marked  as  complete.  The  area 
outside  of  the  transmit  buffer  is  not  modified,  regardless  of  the  size  of  the  transmit  buffer. 
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Similarly  the  receive  buffer  can  be  temporarily  modified  by  the  system  during  the  actual  receipt  of 
data.  Therefore,  a  task  must  not  use  or  modify  the  receive  buffer  between  issumg  a  Receive  command 
and  receiving  notification  of  the  completion  of  data  reception. 

3.4    CONNECTION  CONTROL  u      .  uv  u  a    k 

Before  any  data  can  be  exchanged  between  host  and  remote  tasks,  a  connection  must  be  established.  A 
connection  is  a  data  path  between  two  tasks,  one  residing  in  the  host  and  the  other  in  a  remote.  Con- 
nection control  for  intertask  communication  is  accomplished  by  two  subroutines:  NICONX  (connect) 
and  N I  DISC  (iisconnect). 

NICONX  is  a  subroutine  used  to  establish  a  logical  connection.  It  supplies  the  system  with  a  control 
array  to  be  used  as  an  impure  area  for  the  connection. 

NIDISC  is  a  subroutine  used  to  terminate  a  logical  connection.  It  can  be  used  by  either  party  to  a 
connection  to  dissolve  the  connection.  If  a  data  transfer  is  in  progress,  the  transfer  is  allowed  to  com- 
plete. Meanwhile,  no  new  transfer  requests  are  accepted.  When  the  connection  becomes  idle,  it  is  at 
both  ends,  and  the  associated  task  at  the  other  end  is  so  notified. 

A  connection  is  considered  idle  when  it  has  no  unblocked  Transmit  or  Send  Interrupt  requests  pending 
and  has  no  active  Receives  in  progress.  A  Transmit  request  becomes  blocked  when  there  is  no  Receive 
request  at  the  other  end  of  the  connection. 

Note  that  Receive  requests  that  have  not  been  satisfied,  and  blocked  Transmit  requests,  do  not  prevent 
a  connection  from  being  disconnected. 
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3.4.1     NICONX— Connect 

Calling  Sequence: 

CALL  NICONX  (icnxblk  [,iefnl  [,ists]  [,tinong]) 


Arguments: 
icnxblk 

word  1 


words  2-3 
words  4-5 
words  6-32 


Connection  Status  Block— 32  word  integer  array  with  the  following  con- 
tents: 

Logical  Unit  Number  (LUN)  for  the  connection.  You  must  supply  a 
unique  LUN  for  each  connection.  Calling  NICONX  assigns  that  LUN  to 

NL. 

Partner  task  node  name  in  R  AD50. 
Partner  task  name  in  RAD50. 

Network  data  area  to  be  used  by  the  system.  Word  12  (icnxblk  (12))  con- 
tains the  current  connection  status.  This  word  is  zero  while  the  con- 
nection is  active.  It  is  nonzero  while  the  connection  is  being  initiated  and 
after  it  has  been  terminated.  Your  program  should  test  this  word  after 
every  network  request.  Specific  values  for  the  connection  status  word  for 
host  tasks  are  different  from  those  used  for  remote  tasks. 

Host  tasks  can  see  the  following  values: 

+  4  =    DIS  system  crashed 

+  3  =    Channel  closed  (via  DLC) 

+  2  =    Your  task  has  aborted  the  connection  (by  CALL  QIO  with 
an  lO.  ABO  function) 

+  1    =  Your  task  called  NIDISC 

0  =  Connection  is  established 

-1    =  Remote  task  called  NIDISC 

-2  =  Remote  task  aborted  the  connection,  exited,  or  was  aborted 

-5  =    Connection  pending:  host  task  has  called  NICONX,  but  re- 
mote task  has  not  yet  called  N ICONX 
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iefn 

ists 
ists(l) 
ists(2) 

tmoflg 


Remote  tasks  can  see  the  following  values: 

-f  2  =    Remote  ta;sk  has  aborted  the  connection  (by  CALL  QIO 
with  an  lO  ABO  function) 

+  1  =  Remote  task  called  NIDISC 

0  =  Connection  is  established 

-1  =  Host  task  called  NIDISC 

-2  =  Host  task  aborted  the  connection,  exited,  or  was  aborted 

-3  =  Channel  closed  (via  DLC  in  host) 

—  5  =    Connection  pending:  remote  task  has  called  NICONX,  but 
host  task  has  not  yet  called  NICONX 

Integer  variable  specifying  the  event  flag  to  be  set  when  operation  is 
complete. 

Two-word  integer  array  to  receive  the  completion  status  of  the  operation: 
Completion  status — see  Section  3.3.3 
Not  relevant — can  be  ignored 

Integer  variable  specifying  the  event  flag  to  be  set  if  communication 
channel  time-out  occurs.  If  this  event  flag  is  not  included  in  the  CALL 
NICONX,  this  task  is  not  notified  of  time-out.  Refer  to  Section  2.5  for  a 
discussion  of  Channel  Time-Out  Support. 


I 


The  possible  I/O  completion  errors  are: 

—  1  =  LUN  already  connected 

—  2  =  Parameter  error 

—  16  =  No  such  node  (the  channel  is  not  open) 

—  17  =  NI:  being  dismounted 

—  23  =  Too  many  connections  (see  also  Section  11.5) 
_34  =  No  response  from  remote 

_37  =  No  pool  space 

—  68  =  No  pool  space 

-73     =     Host  task  rejected  Connect  request  (a  host  task  can  reject  a  remote  task's  Connect 
request;  a  remote  task  cannot  reject  a  host  task's  Connect  request) 

Possible  directive  status  errors  are: 

—  1       =     No  pool  space 
May  1982 
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3.4.2    NI  DISC— Disconnect 

Calling  Sequence: 

CALLNIDISC(icnxblk[,iefn][,ists]) 


Arguments: 
icnxblk 

iefn 

ists 

ists(l) 
ists(2) 


Connection  status  block  identifying  the  connection.  This  is  the  same 
block  specified  with  NICONX. 

Integer  variable  specifying  event  flag  to  be  set  when  the  operation  com- 
pletes. 

Two-word  integer  array  to  receive  the  completion  status  of  the  oper- 
ation: 

Completion  status — see  Section  3.3.3 
Not  relevant — can  be  ignored 


The  possible  I/O  completion  errors  are: 

—  1       =     Parameter  error 

—  23     =     No  pool  space 

—  37     =     LUN  not  connected 
Possible  directive  status  errors  are: 

—  1       =     No  pool  space 
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3.5     DATA  TRANSFER  CONTROL 

Tasks  joined  by  a  connection  can  exchange  data  using  the  Transmit  and  Receive  subroutines.  The  log- 
ical connection  is  full-duplex.  A  task  can  issue  a  Transmit  request  while  it  has  a  Receive  request  out- 
standing. 

The  Transmit  subroutines  NIXMIT/NIXMIW  transmit  data  from  the  originating  task's  buffer  to  the 
partner  task's  receive  buffer. 

The  Receive  subroutines  NIRCVD/NIRCVW  specify  a  buffer  to  receive  data  from  the  partner  task. 

An  alternate  Receive  subroutine  NIRCVC  allows  the  host  partner  of  a  pair  of  connected  tasks  to  be 
checkpointed.  When  the  partner  remote  task  transmits,  the  checkpointed  task  is  brought  back  into 
memory  and  the  data  is  received.  NIRCVC  is  implicitly  a  NO  WAIT  subroutine. 


vx 


3.5.1     NIXMIT— Transmit 

NIXMIW— Transmit  and  Wait 

Calling  Sequences: 

CALL  NIXMIT  (icnxblk  ,idata  ,isize  [/efn]  [,istsl) 

CALL  NIXMIW  (icnxblk  ,idata  ,isize  ,iefn  (,ists]) 


Arguments: 
icnxblk 
idata 


isizc 
iefn 

ists 

ists(  I ) 
ists(2) 


Integer  array  specifying  the  connection  (see  NICONX). 
Array  containing  data  to  be  sent. 

NOTE 
The  buffer  must  not  be  modified  until  the  Transmit 
is  complete. 

Integer  variable  specifying  the  size  of  the  message,  in  bytes,  (II  6,384). 

Integer  variable  specifying  the  event  flag  to  be  set  when  the  operation  is 
complete.  Note  that  iefn  is  mandatory  with  NIXMIW. 

Two-word  integer  array  specifying  completion  status: 

Completion  status — see  Section  3.3.3 

Not  relevant — can  be  ignored 
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The  possible  I/O  completion  errors  are: 

—  1        =     Parameter  error 

—  2       =     Remote  does  not  respond 

—  16     =     Nl:  being  dismounted 

—  19     =     Idata  starts  on  an  odd-byte  boundary 

—  23     =     No  pool  space 
-37     ^--     LUN  not  connected 

Possible  directive  status  errors  arc: 

—  1        =     No  pool  space 
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3.5.2    NIRC>'D— Receive 

NIRCVW— ReceUe  and  Wait 
NIRCVC— Receive  Checkpointed 

Calling  Sequences: 

CALL  NIRCVD  (icnxbSk  ,ibuff ,isize  [Jefnl  [,ists]) 
CALL  NIRCVW  (icnxblk,ibuff  ,isize,iefn(,istsl) 
CALL  NIRCVC  (icnxblk  ,ibuff  ,isize  (,iefnl  (,istsl) 


Arguments: 
icnxblk 
ibuff 


I  size 

iefn 

ists 

isls(  1 ) 
ists(2) 


Integer  array  specifying  the  connection. 

Buffer  to  receive  data  from  distant  partner  to  connection. 

NOTE 
Data  in  this  buffer  is  not  valid  until  the  Receive  is 
complete. 

Integer  variable  specifying  the  maximum  size  (in  byies)  that  can  be  re- 
ceived. Note  that  the  data  block  to  be  received  can  be  smaller  than  ibuff 
(1-16,384). 

Integer  variable  specifying  the  event  flag  to  be  set  when  the  operation  is 
completed.  Note  that  iefn  is  mandatory  with  NIRCVW. 

Two-word  integer  array  to  receive  completion  status: 

Completion  status — see  Section  3.3.3 

Number  of  bytes  actually  received  if  operation  was  successful;  i.e.,  if 
ists(l)  =  1 


The  possible  I/O  completion  errors  are: 
—  1       =     Parameter  error 


4m 

16 
-19 

-23 
-37 


Remote  does  not  respond 

Nl:  being  dismounted 

Idata  starts  on  an  odd-byte  boundary 

No  pool  space 

LUN  not  connected 


Possible  directive  status  errors  are: 
—  1       =     No  pool  space 


May  1982 


3-10 


3.6    INTERRUPT  MESSAGES 

An  interrupt  message  is  a  short  message  (from  1  to  16  bytes  long)  that  is  sent  across  a  connection,  even 
in  the  absence  of  a  Receive  request.  The  Interrupt  Message  Transfer  subroutines  allow  these  short 
messages  to  be  transmitted  without  waiting  for  ongoing  data  transfers  to  complete. 

The  Send  Interrupt  Message  subroutines,  NISINT/NISINW,  are  used  to  transmit  an  interrupt  mes- 
sage to  the  partner  task. 

The  Receive  Interrupt  Message  subroutine,  NIRCVI,  enables  a  task  to  receiv;  one  interrupt  message. 
An  interrupt  message,  when  received,  is  copied  into  the  buffer  specified  in  the  call  and  further  inter- 
rupt messages  are  inhibited. 

NOTE 
If  one  task  transmits  an  interrupt  message  before 
the  object  tasl(  has  called  NlRCVl,  the  interrupt 
me  sage  is  discarded.  Therefore,  it  is  possible  to 
lose  an  interrupt  message.  To  minimize  this  possi- 
bility, your  tasks  should  reissue  a  call  to  NIRCVI  as 
part  of  the  interrupt  routine. 
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3.6.1     NISINT— Send  Interrupt  Messages 

NISINW— Send  Interrupt  Messages  and  Wait 

Calling  Sequences: 

CALL  NISINT  (icnxblk  ,idata  ,isize  [,iefnl  [,ists]) 
CALL  NISINW  (icnxblk  ,idata  ,isize  ,iefn  [,ists]) 


Arguments: 
icnxblk 
iddta 
isize 
iefn 

ists 
isls(  I ) 
isls(2) 


Integer  array  specifying  the  connection  (see  NICONX). 

Buffer  containing  the  message  to  be  sent. 

Integer  variable  specifying  the  length,  in  bytes,  of  the  message. 

Integer  variable  specifying  event  flag  to  be  set  when  the  operation  is 
complete.  Note  that  iefn  is  mandatory  with  NISINW. 

Two-word  integer  array  specifying  completion  status: 

Completion  status — see  Section  3.3.3 

Not  relevant — can  be  ignored 


The  possible  I/O  completion  errors  are: 

—  1        =     Parameter  error 

—  2       =     Remote  does  not  respond 

—  1 5     =     Disconnect  in  progress 

—  16     =     N I:  being  dismounted 

—  19     =     Idata  starts  on  an  odd-byte  boundary 

—  23     =     No  pool  space 

—  37     =     LUN  not  connected 
Possible  directive  status  errors  are: 

—  1       =     No  pool  space 
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3.6.2    NIRCVI— Receive  Interrupt  Message 

Calling  Sequence 

CALL  NIRCVI  (icnxblk,ibuff  ,isize(,iefnl[,istsl) 


Arguments: 
icnxblk 
ibuff 
isize 
iefn 

ists 
ists(l) 
ists(2) 


Integer  array  specifying  the  connection. 

16  byte  array  to  receive  message  from  partner  to  connection. 

Integer  variable  specifying  size  in  bytes  of  the  message.  Must  be  16. 

Integer  variable  specifying  the  event  flag  to  be  set  when  the  operation  is  com- 
plete. 

Two-word  integer  array  to  receive  completion  status: 
Completion  status — see  Section  3.3.3 

Number  of  bytes  actually  received  if  the  operation  was  succesful;  i.e.,  if  ists(l) 
=  1 


The  possible  I/O  completion  errors  are: 

—  1       =     Parameter  control 

—  2       =     Remote  does  not  respond 

—  16     =     N I:  being  dismounted 

—  19     =     Idata  starts  on  an  odd-byte  boundary 

—  37     =     LUN  not  connected 
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3.7    BUILDING  A  FORTRAN  RESIDENT  LIBRARY 

To  save  memory  space,  you  can  build  a  resident  (shareable)  library  for  the  DPM  host,  or  for  a  remote^ 
This  library  can  contain  the  FORTRAN  interface  module  FORINT.  Normally,  FOR'NT'S  contained 
in  the  system  object  library  (SYSLIB  for  the  RSX-llM/M-PLUS-based  host,  and  IISLIB  for  the 
RSX-1  IS-based  node),  and  is  linked  to  the  task  image  of  each  FORTRAN  program  that  uses  the  net- 
work. This  can  result  in  multiple  copies  of  the  module  being  in  memory  at  the  same  time. 

Including  FORINT  in  a  resident  library  and  allowing  it  to  be  shared  by  all  of  the  ''O^'T^^j;!^.^'''^ 
that  access  the  network  results  in  more  efficient  use  of  memory,  since  only  one  copy  ot  hORlIN  l  is  in 
memory. 
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CHAPTER  4 


INTERTASK  COMMUNICATION  IN  MACRO-11 


AH  QIO$  functions  use  the  standard  format  that  is  shown  in  the  RSX-1 1 M/M-PLUS  Executive  Refer- 
ence Manual. 


QIO$    fnc,lun,[efn],[pri],[istsl,[»stl,[prl] 


where: 

fnc  =  I/O  function  cocte 

lun  =  Logical  unit  number 

efn  =  Event  flag  number 

pri  =  Priority;  ignored,  but  must  be  present 

ists  =  Address  of  I/O  Status  Block 

ast  =  Address  of  entry  point  of  AST  service  routine  for  I/O  Completion 

prl  =  Parameter  list  of  the  form  <P1,.-.P6> 

In  the  following  descriptions,  the  optional  parts  of  the  QIO  format,  i.e.,  [efn], [pri], [ists], [ast],  are  rep- 
resented for  the  sake  of  brevity  by  "...". 

4.1     PROGRAMMING  CONSIDERATIONS  ^      ,     ^    u 

In  a  host/remote  tisk  pair,  each  task  must  request  connection  to  the  other  independently.  I  asks  are 
informed  when  a  connection  request  is  granted,  i.e.,  when  both  tasks  have  requested  a  connection^  Host 
tasks  can  use  the  requests  described  in  Chapter  5  to  discover  which  remote  tasks  have  requested  con- 
nections to  them. 

4.1.1     Checkpointing  and  SliufHing  Tasks  ^     .„  .      u    u    -  *  a   *u,.. 

Tasks  in  the  DPM  host  can  establish  connections  to  tasks  in  remotes  and  still  be  checkpointed,  tnus 
permitting  sharing  of  main  memory.  When  the  host  task  issues  a  Transmit  request  (normal  or  interrupt 
message),  it  is  locked  in  memory  until  the  Transmit  is  completed.  Similarly,  the  host  task  is  locked  in 
memory  while  a  Receive  request  is  pending.  A  task  need  not  issue  a  Receive  request  in  anticipation  of 
a  Transmit  from  the  other  end,  if  it  has  specified  an  Unsolicited  Receive  AST  when  connecting.  When 
a  Transmit  is  attempted  while  the  task  has  no  Receive  pending,  the  Unsolicited  Receive  AST  is  exe- 
cuted.  Thus,  a  task  with  nothing  to  dc  but  wait  for  data  could  wait  on  an  event  flag,  and  set  that  event 
flag  from  within  the  Unsolicite''  Receive  AST. 
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Host  tasks  that  can  be  checkpointcd  have  full  access  to  all  capabilities  of  the  network;  they  can  issue 
any  of  the  MACRO-1 1  requests  described  in  this  and  later  chapters.  Note,  however,  that  if  you  issue 
some  of  these  calls,  the  task  can  i.o  longer  be  checkpointed  or  shuffled  until  the  function  has  been 
completed 

Some  applications  need  fast  response  time  in  the  host  for  requests  from  remote  tasks.  In  these  cases, 
the  host  task  should  be  non-checkpointable  and/or  should  be  installed  in  its  own  partition. 

4.1.2  Completion  Status 

As  is  the  case  for  other  QIO  directives,  QIOs  issued  for  intertask  communications  can  be  terminated 
by  either  a  directive  status  error  (returned  in  $DSW)  or  by  I/O  completion  (returned  in  the  low  byte  of 
the  first  word  of  ists).  To  avoid  problems,  use  the  following  code  immediately  after  issuing  a  QIO: 

CMP    $DSWJIS.SUC 
BEQ    OKSOFAR 

When  a  QIOS  lO.RCV  is  successfully  completed,  the  second  word  of  the  I/O  Status  Block  ists  con- 
tains the  number  of  bytes  that  were  received.  When  any  other  QIO  directive  for  intertask  commu- 
nication completes,  the  second  word  of  the  I/O  Status  Block  is  irrelevant. 

4.1.3  Transmit  and  Receive  Data  Integrity 

When  a  Transmit  request  is  issued,  a  portion  of  the  transmit  buffer  is  temporarily  modified  by  the 
system  during  actual  data  transmission.  Accordingly,  a  task  must  not  use  or  modify  the  transmit  buffer 
between  issuing  a  Transmit  request  and  receiving  notification  of  the  completion  o<"  transmission. 

NOTE 
IlBder  RSX-llM-PLUS,  a  task  bottt  with  tlw  /MU 
switch  has  its  **read  oriy**  portioM  protected  froM 
write  access  hy  the  aieaory  lanatiaii 
For  this  rsasoa,  fai  aay  host  taak 
RSX-llM-PLUS  ustag  the  /MU  switch,  the  trans- 
mH  buffer  aiost  not  be  pot  hi  a  **read  oaiy**  prognuB 
sectioB  (via  .PSECT). 

The  transmit  buffer  is  always  restored  before  the  Transmit  is  marked  as  complete.  The  area  outside  of 
the  transmit  buffer  is  not  modified,  regardless  of  the  size  of  the  transmit  buffer. 

Similarly,  the  receive  buffer  can  be  temporarily  modified  by  the  system  during  the  actual  receipt  of 
data.  A  task  must  not  use  or  modify  the  receive  buffer  between  issuing  a  Receive  request  and  receiving 
notification  of  the  completion  of  data  reception. 

4.2     ASYNCHRONOUS  SYSTEM  TRAPS  (AST) 

In  addition  to  the  I/O  Completion  AST  that  can  be  specified  with  each  QIO  request,  the  other  ASTs 
used  in  the  DIS  MACRO-1 1  interface  are: 

•      Disconnect  AST 


• 

Interrupt  Message  Received  AST 

• 

Communications  Channel  Time-Out  AST 

• 

Unsolicited  Receive  AST 
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All  four  ASTs  arc  Specified  as  part  of  the  Connect  request  lO.CON. 

When  an  AST  occurs,  the  Executive  pushes  the  following  onto  the  task's  stack: 

•  Event  flag  mask  word 

•  PS  of  task  prior  to  AST 

•  PC  of  task  prior  to  AST 

•  DSW  of  task  prior  to  AST 

Each  of  these  ASTs  has  additional  AST-specific  data  placed  on  the  top  of  the  stack.  You  must  remove 
these  additional  AST  parameters  before  issuing  an  AST  exit  directive  (ASTX$).  The  specific  data  to 
be  removed  for  each  AST  is  described  in  Sections  4.2.1-4.2.4. 

Note  that  a  task's  general  purpose  registers  R0-R6  are  not  saved  during  an  AST.  If  the  routine  makes 
use  of  them,  it  must  save  and  restore  them  itself. 

4.2.1     Disconnect  AST 

The  Disconnect  AST,  if  specified,  is  entered  when  any  one  of  two  connected  tasks  exits,  is  aborted,  or 
issues  lO.DIS. 

To  restore  the  stack  after  a  Disconnect  AST,  you  must  remove  one  word  of  data,  whose  low  byte  is  the 
reason  for  the  disconnect,  and  whose  high  byte  contains  the  logical  unit  number  of  the  relevant  con- 
nection. For  a  host  task,  the  low  byte  meaning  is: 

-1-4  =  DIS  system  crashed 

-1-3  =  Channel  closed  (via  DLC) 

-1-2  =  Host  task  issued  lO.ABO 

-{- 1  =  Host  task  issued  lO.DIS 

- 1  =  Remote  task  issued  lO.DIS 

—  2  =  Remote  task  issued  lO.  ABO,  or  was  aborted  or  exited 
For  a  remote  task,  the  low  byte  meaning  is: 

-f-2  =  Remote  task  issued  lO. ABO 

-Hi  =  Remote  task  issued  lO.DIS 

- 1  =  Host  task  issued  lO.DIS 

—  2  =  Host  task  issued  lO. ABO,  or  was  aborted  or  exited 

—  3  =  Host  system  crashed 
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4.2.2    Interrupt  Message  Received  AST  . 

The  Interrupt  Message  Received  AST,  if  specified,  is  executed  when  an  interrupt  message  is  received 
from  the  other  party  to  a  connection  (i.e.,  the  distant  task  issues  lO.XMI). 

To  restore  the  stack  after  an  Interrupt  Message  Received  AST,  you  must  remove  10  words  of  data  (the 
Interrupt  Message).  The  first  word  contains  the  LUN  of  the  relevant  connection  in  the  low  byte,  and 
the  length  (1-16)  of  the  interrupt  message  received  in  the  high  byte.  The  next  eight  words  contain  the 
interrupt  message.  The  last  word  is  reserved. 

Figure  4-1  shows  the  stack  contents  after  an  interrupt  message  has  been  received. 


LENG 

LUN 

0 

D2 

D1 

2 

D4 

D3 

4 

D6 

D5 

6 

D8 

D7 

10 

D10 

D9 

12 

D12 

D11 

14 

D14 

D13 

16 

D16 

D15 

20 

RESERVED 

22 

DSW 

24 

PC 

26 

PS 

30 

EF  MASK 

32 

Figure  4-1     Contents  of  Stack 
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A  possible  routine  to  remove  the  AST-specific  contents  would  be: 


LUNt     .MiORO 


IMCASTt 


ISl 


HOVB 
MPVB 

MOV 
HOV 
ADO 
MOVB 

soe 

ADD 
ASTXS8 


0 

16. 


(8P)»LUN 

«BUFFCR«R1 

8P,R2 

«2»R2 

(B2)*.(»n* 


I  BufftP  to  Held  interrupt  mcttag* 


I  Get  LUN  fpooi  atseK 

I  C«t  byta  count  from  h<oH  erdtf  byt* 

I  Point  to  buffer 

? 

t 

f    Copy   data    from   stack 

I 


•  20«*SP    I   Rai^evs  data   from   ataeii 


4.2.3    Communications  Cliannel  Time-Out  AST 

The  Communications  Channel  Time-Out  AST,  if  specified,  is  issued  when  the  channel  time-out  inter- 
val specified  during  the  booting  of  the  remote  elapses  without  communication  between  the  ACPs. 

To  restore  the  stack  after  a  Communications  Channel  Time-Out  AST,  you  must  remove  one  word, 
whose  low  byte  is  the  LUN  of  the  relevant  connection,  and  whose  high  byte  is  the  time-out  constant  in 
seconds. 


4.2.4    Unsolicited  Receive  AST 

The  Unsolicited  Receive  AST,  if  specified,  is  issued  when  the  distant  partner  to  a  connection  issues  a 
Transmit  request  but  the  local  partner  has  no  Receive  request  queued.  The  Unsolicited  Receive  AST  is 
provided  so  that  a  host  task  that  expects  to  receive  data  from  its  remote  partner  can  be  checkpointed 
(no  QIO  outstanding)  until  the  other  task  wants  to  transmit.  Thus,  with  checkpointing  enabled,  the 
task  could  wait  (e.g.,  for  an  event  flag)  and  the  AST,  when  executed,  could  set  the  event  flag.  The  task, 
thus  wakened  and  brought  back  into  memory,  can  issue  its  Receive  request.  At  this  point,  the  Transmit 
takes  place.  Alternatively,  the  Receive  request  could  be  issued  from  within  the  body  of  the  Unsolicited 
Receive  AST. 

To  restore  the  stack  after  an  Unsolicited  Receive  AST,  two  words  must  be  removed.  The  first  contains 
the  LUN  of  the  relevant  connection;  the  second,  the  number  of  bytes  in  the  Transmit  request. 

4.3    CONNECTION  CONTROL 

Before  any  data  can  be  exchanged  between  host  and  remote  tasks,  a  connection  must  be  established.  A 
connection  is  a  data  path  between  a  task  in  the  host  and  one  in  a  remote.  Each  connection  is  uniquely 
identified  by  a  logical  unit  number  (LUN).  Each  LUN  must  have  been  assigned  to  device  NL. 

To  create  a  connection,  each  task  issues  a  Connect  request  that  explicitly  names  the  partner  task  to  the 
connection.  The  tasks  can  issue  their  Connect  requests  in  either  order;  a  connection  is  not  completed 
until  both  connection  requests  have  been  issued  and  then  verified  by  the  system.  A  Disconnect  request 
can  be  used  unilaterally  by  either  task  to  break  the  connection.  If  a  data  transfer  is  in  progress,  it  is 
allowed  to  complete.  Meanwhile,  no  new  transfer  requests  are  accepted.  When  the  connection  becomes 
idle,  it  is  removed  at  both  ends,  and  the  associated  task  at  the  other  end  is  so  notified. 

A  connection  is  considered  idle  when  it  has  no  unblocked  Transmit  or  Send  Interrupt  requests  pending 
and  has  no  active  Receive  requests  in  progress.  A  Transmit  request  becomes  blocked  when  there  is  no 
Receive  request  at  the  other  end  of  the  connection. 

Note  that  Receive  requests  that  have  not  been  satisfied,  and  blocked  Transmit  requests  do  not  prevent 
a  connection  from  being  disconnected. 
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From  the  time  the  Disconnect  AST  is  entered,  the  connection  has  been  dissolved.  If  one  or  more  Re- 
ceive requests  are  outstanding  at  the  time  of  the  disconnect,  they  are  terminated  with  a  zero  byte  count 
and  an  error  status  of  lE.NLN.  If  you  want  to  renew  the  connection,  both  tasks  must  issue  a  new 
connect  request. 


A  task  in  the  host  can  determine  which  remote  tasks  are  trying  to  connect  to  it  by  issuing  the  Get 
Connection  Information  request  (see  Section  5.3.1).  It  can  reject  any  of  these  requests  by  issuing  a 
Reject  Connect  request  with  the  task  name  and  node  name  of  the  remote  task  in  the  connect  block.  If 
more  than  one  request  is  pending  from  the  same  task  in  the  same  remote,  each  Reject  terminates  the 
earliest  such  Connect  request. 
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4.3.1     lO.CON-Connect 

The  format  of  this  call  is: 


QIO$    IO.CON,lunv..,<cntad,size> 


where: 


iun 


cntad 


=     Logical  unit  number  henceforth  used  by  this  task  to  uniquely  identify  the  con- 
nection. The  LUN  must  have  been  assigned  to  device  NI:. 


=     Address  of  connect  block. 
size  ==     Size  of  connect  block  in  bytes  (must  be  16.) 

The  connect  block  format  is: 


words  0-1 
words  2-3 
word  4 
word  5 
word  6 
word  7 


Node  name  of  object  (RAD50) 

Task  name  of  object  (RAD50) 

Address  of  Disconnect  AST 

Address  of  Interrupt  Message  Re-eived  AST 

Address  of  Communications  Channel  Time-Out  AST 

Address  of  Unsolicited  Receive  AST 


The  possible  errors  are: 

lE.ALN     =     LUN  already  connected 

lE.BAD     =     Parameter  error 

lE.NNN    =     No  such  riode 

lE.PRI       =     Network  being  dismounted 

lE.RSU     =     Too  many  connections 

lE.DNR     =     No  response  from  remote 

lE.UPN     =     No  pool  space 

lE.NOD    =     No  pool  space 

lE.CNR     =     Host  partner  rejected  Connect  request — Ste  lO.CRJ 
The  second  word  of  the  I/O  Status  Block  (ists-|-2)  is  meaningless. 
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4.3.2    lO.DIS— Disconnect 

The  format  of  this  call  is: 

QIO$    IO.DIS,lun,... 

where: 

lun  =     Logical  unit  number  used  as  connection  number 

The  possible  errors  are: 

lE.NLN     =     LUN  not  connected 

lE.UPN     =     No  pool  space 

IE. NOD    =     No  pool  space 
The  second  word  of  the  I/O  Status  Block  (ists+2)  is  meaningless. 
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4.3.3    lO.ABO— Abort  Connection 

The  formal  of  this  call  is: 

QIO$         lO.ABOJun,... 

where: 

lun  =     Logical  unit  number  used  as  connection  number 

The  possible  errors  are: 

lE.NLN     =     LUN  not  connected 

lE.UPN     =     No  pool  space 

lE.NOD    =     No  pool  space 
The  second  word  of  the  I/O  Status  Block  (ists+2)  is  meaningless. 


• 


m 
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4.3.4    lO.CRJ— Reject  Connect  Request 

The  format  of  this  call  is: 

QIO$    IO.CRJ,lun,...,<cntad»size> 

where: 
lun 


=     Logical  unit  number  used  as  connection  number 


cntad         =     Address  of  connect  block.  This  is  the  same  connect  block  used  in  lO.CON.  The 
ASTs  are  ignored,  but  the  spacw  must  be  present. 


size 


=     Size  of  connect  block  in  bytes  (must  be  16.) 


The  possible  errors  are: 

IE.aLN     =     LUN  already  connected 

IE. BAD     =     Parameter  error,  or  no  matching  Connect  request  from  remote 

lE.NNN    =     No  such  node 

lE.PRI       =     Network  being  dismounted 

lE.DNR     =     No  response  from  remote 

lE.UPN     =     No  pool  space 

lE.NOD    =     No  pool  space 
The  second  word  of  the  I/O  Status  Block  (ists  +  2)  is  meaningless 
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4.4     DATA  TRANSFER  CONTROL 

Tasks  joined  by  a  connection  can  exchange  data  using  the  Transmit  and  Receive  requests.  The  con- 
nection is  full  duplex— a  task  can  issue  a  Transmit  while  it  has  a  Receive  outstanding. 

The  Transmit  request  lO.XMT  transmits  data  from  the  originating  task's  buffer  to  the  partner  task's 
receive  buffer. 

The  Receive  request  lO.RCV  specifies  a  buffer  to  receive  data  from  the  partnei  task. 

4.4.1     lO.XMT— Transmit 

The  format  of  this  call  is: 

QIO$     10.XMT,lun,...,<bufad,size> 

where: 

lun  =  Logical  unit  number  identifying  connection 

bufad  =  Address  of  data  buffer  to  be  sent  over  connection 

size  =  Size  in  bytes  of  message  (1-16,384) 
The  possible  errors  are: 

lE.BLB  =  Receiver's  buffer  too  small 

lE.NLN  =  LUN  not  connected 

IE. BAD  =  Parameter  error 

lE.DNR  =  Remote  does  not  respond 

IE  PRI  =  Network  being  dismounted 

lE.UPN  =  No  pool  space 

lE.NOD  =  No  pool  space 

lE.BYT  =  Buffer  starts  on  an  odd-byte  boundary 
The  second  word  of  the  I/O  Status  Block  (ists  +  2)  is  meaningless 
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4.4.2    lO.RCV— Receive 

The  format  of  this  call  is: 

QIO$    IO.RCV,lun,...,<bufad,size> 

where: 

lun  =  Logical  unit  number  identifying  connection 

bufad  =  Address  of  buffer  to  receive  incoming  data 

size  =  Maximum  size  of  message  in  bytes  (16,384) 

The  possible  errors  are: 

lE.NLN     =     No  such  connection 

IE. BAD     =     Parameter  error 

lE.DNR    =     Remote  does  not  respond 

lE.PRI       =     Network  being  dismounted 

lE.UPN     =     No  pool  space 

IE. NOD    =     No  pool  space 

IE. BYT      =     Buffer  starts  on  an  odd-byte  boundary 
The  second  word  of  the  I/O  Status  Block  (ists  +  2)  contains  the  number  of  bytes  received. 


4-12 


4.5    INTERRUPT  MESSAGES 

Once  tasks  are  connected,  they  can  exchange  interrupt  messages.  Interrupt  messages  are  transmitted 
by  lO.XMI  and  received  through  the  Interrupt  Message  AST.  specified  in  lO.CON. 

Interrupt  messages  should  be  used  with  care;  if  a  task  sends  interrupt  messages  faster  than  the  object 
task  can  receive  them,  the  Dynamic  Storage  Region  in  the  object  task's  processor  can  be  exhausted. 

4.5.1     lO.XMl— Send  Interrupt  Message 

The  format  of  this  call  is: 

QIO$    IO.XMI,Iun,...,  <  birf ad,size  > 

where: 

lun  =     Logical  unit  number  identifying  connection 

bufad         =     Address  of  data  buffer  to  be  sent  over  connection 

size  =     Size  in  bytes  of  message  (1-16) 

The  possible  errors  are: 

lE.BAD     =     Transmit  buffer  size  out  of  range 

lE.NLN     =     LUN  not  connected 

lE.PRI       =     Network  being  dismounted 

lE.UPN     =     No  pool  space 

lE.NOD    =     No  pool  space 

lE.BYT      =     Buffer  starts  on  an  odd-byte  boundary 
The  second  word  of  the  I/O  Status  Block  (ists-|-2)  is  meaningless. 
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4.6    AN  EXAMPLE  OF  THE  MACRO-ll  REQUESTS 

.MCtLL   *LllN«5,0I0wj;S,  *STXtS»EXIT$S 


OATSIZ   ■  IV'Z'i, 
CONBL"!  .fARSPi 


/N0DE?5/ 

/WIDGET/ 

OISAST 

IMEAST 

THOiST 

UNSA8T 


CIOSBj   .mKW    2 


ROATAt   ,BLKB 
DATA:    .6Lt<« 


0ATSI2 
OATSIZ 
16. 


t  lU**    to  be  u«td  for  co«nect<on 

»  Fvent    f1«g 

I  Aweur«i    0*    dat«    to    rftceivf-   of    «^an•ln^t 

I  Mode  «a»"e 

I  Task  name 

»  Diteonneet  att  adeffeat 

I  T'^tcfrurt  mtaaa<3(>  est  address 

}  Tiire*out  ait  address 

J  IJnaoHc^ted  rwce^ve  att  aridrata 

I  I/O  status  block 

I  Buffer  area  to  receive  data 

J  Data  to  be  ae^t  to  other  task 

J  lF»terruot  ("essaqe  data 


START! 


DlSASTi 


ALUMSS 

OIOnSS 

OTHkiSS 

OIOi«.SS 

QTO»>SS 

QinwJS 

EXITJS 

Ann 
ASTXSS 


•  0ISLUN,«"Mf«9  I  Assiqn  1  u" 

t 

ilO.CON,iOISLUN,l»DISEPM,,«IOS8,,<«C0^9LK,«lfc.>   I  Issue  co««ect 

t 

#I0.RCV,«ni5LUN,«PT$EFM,,sinSB,,«eRDATA,i»SI7E>   I  Receive  data 

• 

ilO.KHT,«DlSLUM,«OISEF^,,aIOSB,,<»TOATA,aSIZE>   I  Trana-^U  data 

ilP.XMI,«DISLUN,«DlSEFS,,»I08e,»<«DATA,«lfe,>  »    Send    Interrupt    •e>tSS«g<» 


•  I0,0IS.«nlSLU'^»«0ISEF'^».«T09B 


I  Break  the  eo'^ineetlen 


IHCASTI 


TMOASTi 


UNSASTi 


ADD 
ASTKSS 


ADD 
ASTkfS 

ADD 
ASTX«S 

.F^n 


«2,SP 


•  Pft.iSR 


•  2.SP 


«u,SR 


START 


}  Disconnect  est  routine 

I  Raoove  LOU    (i  Bvte)   REASON  (I  Hvte) 

I  for  'Ksconnect  from  stack 


I  Interrupt  "tessaae  aat  routine 

I  Remove  Interrupt  message  from  stack 


I  T1me>out  ixaaaaae  est  routine 

I  Remove  LUN  (1  Byte)   REASOM  (I  Byte) 

»  for  rtlaeonnect  fro*  stack 


I  Unsolicited  receive  est  routine 
f  Remove  «VTE  C0U»'T(1  word)  and 
I  L'J*^  (1  *ord)  from  atack. 
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CHAPTER  5 


NETWORK  STATUS  INFORMATION 


In  addition  to  the  intertask  communication  capability  of  the  DPM  network,  FORTRAN  and  MACRO 
programs  in  the  host  can  obtain  status  information  about  the  nodes  and  connections  of  the  DPM  network. 
Status  information  is  available  for: 

fit      A  specific  node 

•  A  specific  task 

•  All  nodes  and  tasks  that  currently  have  established  connections 

5.1     TYPES  OF  NETWORK  STATUS  INFORMATION  AVAILABLE 

There  are  two  types  of  Network  Status  information  available:  Node  Status  and  Connection  Status. 

Node  Status  is  information  about  a  specific  node.  This  information  includes: 

•  Node  nam**- 

•  Node  number 

•  Whether  the  node  is  active  or  does  not  respond 

•  Number  of  active  and  pending  connections 

•  Maximum  number  of  allowed  connections 

The  node  is  specified  either  by  node  name  or  node  number. 
Connection  Status  i->  information  about: 

•  One  connection 

•  A  set  of  connections 

•  All  of  the  system's  connections 
This  information  includes: 

•  Node  and  task  names  of  the  partners  to  the  connection 

•  Whether  the  connection  is  active  or  pending 

•  The  number  of  pending  Transmit  and  Receive  requests 
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5.2  ACQUISITION  OF  NETWORK  STATUS  REPORTS  FROM  FORTRAN  TASKS 

FORTRAN  tasks  can  acquire  network  status  reports  by  calls  to  supplied  subroutines.  These  subroutines 
are  usually  added  to  SYSLIB  during  the  DPM  software  generation  procedure.  The  subroutines  are  sum- 
marized in  Table  5-1. 


Table  5-1     FORTRAN  Network  Status  Subroutines 


Subroutine 


NIGCAL 

NIGCLO 

NIGCNO 

NIGCON 

NIGCRQ 

NIGCTK 

NIGNNA 

NIGNNO 


Function 


Get  status  of  all  of  the  system's  connections 

Get  status  of  requesting  task's  connections 

Get  status  of  all  connections  for  a  specified  node 

Get  status  of  a  single  connection  for  the  requesting  task 

Get  status  of  all  connections  pending  from  any  remote  task  to  the  requesting  task 

Get  status  of  all  of  the  specified  task's  connections 

Get  status  of  specified  node  by  supplying  node  number 

Get  status  of  a  specified  node  by  supplying  the  node  name 


All  of  these  subroutines  are  synchronous;  control  is  not  returned  to  the  calling  task  until  the  information 
has  been  obtained.  Each  ot  the  subroutines  except  NIGCON  requires  that  the  task  supply  a  LUN  which 
has  been  assigned  to  NI:.  For  example: 


C 
C 


'.0-    ♦i'^fl   out    f«    --oa*   '«•"'•    (ttc.)    ♦c   the   nis    «t    Sdk"ua: ,  s«9««5j 

CALL    M3'^N»     (\f  TLi.i^,«»UPP£«»,  l^.  .ST»Tu5,  "a'D 


Sections  5.2.1  -5.2.8  describe  the  format  of  the  individual  subroutine  calls  and  provide  a  detailed  descrip- 
tion of  each  call. 


5-2 


5.2.1    NIGCAL— Get  Connectioiis  for  All  Nodes  .       .  r 

NIGCAL  returns  information  about  all  of  the  system's  connections.  NIGCAL  acquires  mformation 
about  all  connections  currently  established  from  any  task  in  the  DPM  host  to  any  DIS  node.  The  mforma- 
tion about  each  connection  occupies  20.  bytes  of  storage. 

Calling  Sequence: 

CALL  Nl      AL(liimibufad,isize[aefn][,ists]) 

Arguments: 


lun 

ibufad 

isize 

icfn 

ists 


Logical  unit  number  L-isigned  to  NL 
Buffer  to  be  filled  by  this  call 

Size  of  buffer  in  bytes  (n  *  20.),  where  n  is  the  number  of  connections  to  be 
reported 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 

Two  word  integer  array  to  receive  completion  status  of  the  operation 


The  user's  storage  buffer  is  filled  with  one  entry  per  connection  as  follows: 

/ 


byte  1-4 
byte  5-8 
byte  9-1 2 
byte  13-16 
byte  17 


byte  18 


Host  task  name  (in  RAD50  format) 
Host  node  name  (HOST,  in  RAD50  format) 
DIS  task  name  (in  RAD50  formnt) 
DIS  node  name  (in  RAD50  format) 

Connection  status: 

0  =  Pending  from  the  host 

1  =  Pending  from  the  remote 
128  =  Active 

LUN  used  by  host  task;  will  be  0,  if  the  connection  is  pending  from  the  re- 
mote 


Number  of  pending  Transmit  requests  from  the  host  task 
Number  of  pending  Receive  requests  from  the  host  task 


byte  19 
byte  20 

The  possible  returns  are: 

IS.SU  =  Successful  completion 

lE.DAO  =  User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries 

lE.BAD  =  Buffer  too  small  for  one  entry  (isize  <20.) 

lE.NLN  =  No  connection  on  LUN 
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5.2.2    NIGCLO— Get  Connections  Local  to  This  Tasit 

NIGCLO  returns  information  about  all  of  the  connections  to  the  requesting  task. 

Calling  Sequence: 

CALLNIGCLO(lun,ibufad,isize(,iefnI[,istsl) 

Arguments: 

lun  Logical  unit  number  assigned  to  NL 

ibufad  Buffer  to  be  filled  by  this  call 

isize  Size  of  buffer  in  bytes  (n  *  20.) 

iefn  Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 

plete 

ists  Two  word  integer  array  to  receive  completion  status  of  the  operation 

The  user's  buffer  is  filled  with  one  entry  per  connection  in  the  same  format  as  for  NIGCAL. 
The  possible  returns  are: 

IS.SUC      =     Successful  completion 

lE.DAO     =     User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries. 

lE.BAD     =     Buffer  too  small  for  one  entry  (isize  <20.) 

iE.NLN     =     No  connection  on  LUl 


S-4 


5.2.3    NIGCNO— Get  Connections  for  a  Node 

NIGCNO  returns  information  about  all  connections  for  a  specified  node. 

Calling  Sequence: 

CALL  NIGCNO(Iun,lbufad,lsize,[iefnl,[istsl,nodnam) 

Arguments: 


lun 

ibufad 
isize 
iefn 

ists 
nodnam 


Logical  unit  number  assigned  to  NI: 

Buffer  to  be  filled  by  this  call 

Size  of  buffer  in  bytes  (n  *  20.) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 

Two  word  integer  array  to  receive  completion  status  of  the  operation 

Two  word  integer  array  specifying  node  name  (in  RAD50  format)  of  the 
desired  node 


The  user's  buffer  is  filled  with  one  entry  per  connection  in  the  same  format  as  for  NIGCAL. 
The  possible  returns  are: 

IS.SUC      =     Successful  completion 

lE.DAO     =     User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries. 

lE.BAD     =     Buffer  too  small  for  one  entry  (isize  <20.) 

lE.NLN     =     No  connection  on  LUN 


# 
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5.2.4     NIGCON— Get  Connections  for  One  LUN 

NIGCON  returns  information  about  a  single  connection  for  the  requesting  task. 

The  LUN  specified  in  calling  NIGCON  must  correspond  to  the  LUN  used  when  the  connection  was  es- 
tablished; CALL  NIGCON  is  only  useful  as  a  sequel  to  CALL  NICONX. 

Calling  Sequence: 

CALLNIGCON(lun,ibufad,isize(,iefnl(,istsl) 


Arguments: 
lun 

ibufad 
isize 
iefn 


Logical  unit  number  assigned  to  NL 
Buffer  to  be  filled  by  this  call 
Size  of  buffer  in  bytes  (20.) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 


ists  Two  word  integer  array  to  receive  completion  status  of  the  operation 

The  user's  buffer  is  filled  with  one  entry  per  connection  in  the  same  format  as  for  NIGCAL. 
The  possible  returns  are: 

IS.SUC      =     Successful  completion 

IE. BAD     =     Buffer  too  small  (isize  <20.) 

lE.NLN     =     No  connection  on  LUN 
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5.2.5    NIGCRQ— Get  Connections  Requested  for  this  Task 

NIGCRQ  returns  information  about  any  pending  connections  from  rcmotc(s)  to  the  requestmg  task. 

NIGCRQ  permits  a  host  task  to  determine  which  (if  any)  tasks  running  in  remotes  are  currently  attempt- 
ing to  establish  connections  to  the  host  task.  Using  NIGCRQ,  a  host  task  can  adapt  to  dynamic  changes 
in  remote  use.  A  hosi  task  can  also  use  NIGCRQ  to  respond  serially  to  requests  from  multiple  remotes. 

Calling  Sequence: 

CALLNIGCRQ(lMn,ibufad4size[,iefnll,ists]) 


Arguments: 
lun 

ibufad 
isize 
iefn 


Logical  unit  number  assigned  to  NI: 
Buffer  to  be  filled  by  this  call 
Size  of  buffer  in  bytes  (n  *  20.) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 


i5t5  Two  word  integer  array  to  receive  completion  status  of  the  operation 

The  user's  buffer  is  filled  with  one  entry  per  connection  in  the  same  format  as  for  NIGCAL. 
The  possible  returns  arc: 

IS.SUC      =     Successful  completion 

lE.DAO     -      User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries 

lE.BAD     «=     Buffer  too  small  for  one  entry  (isize  <20.) 

lE.NLN     —     No  connection  on  LUN 


5-7 


5,2.6    NIGCTK— Get  Connections  for  a  Task 

NIGCTK  returns  information  about  the  connections  of  a  specified  host  task. 

Calling  Sequence: 

CALLNIGCTK(lun,ibufad,islie,Iiefnl,[ists],tsknam) 


Arguments: 
lun 

ibufad 
isize 
iefn 

ists 
tsknam 


Logical  unit  number  assigned  to  NI: 
Buffer  to  be  filled  by  this  call 
Size  of  buffer  in  bytes  (n  *  20.) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 

Two  word  integer  array  to  receive  completion  status  of  the  operation 

Two  word  integer  array  specifying  task  name  (in  RAD50  format)  of  de- 
sired task 


The  user's  buffer  is  filled  with  one  entry  per  connection  in  the  same  format  as  for  NIGCAL. 
The  possible  returns  are: 

IS.SUC      =     Successful  completion 

lE.DAO     =     User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries 

IE. BAD     =     Buffer  too  small  for  one  entry  (isize  <20.) 

lE.NLN     =     No  connection  on  LUN 
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5.2.7    NIGNNA— Get  Node  Name 

NIGNNA  is  a  subroutine  that  returns  information  about  a  specific  node.  The  node  is  specified  by  node 

number. 

Calhng  Sequence: 

CALLNIGNNA(lun,ibufad,isize,[iefn],(istsl,nodnuin) 


Arguments: 
lun 

ibufad 
isize 
iefn 

ists 
nodnum 


Logical  unit  number  assigned  to  NI: 

Buffer  to  be  filled  by  this  call 

Size  of  buffer  (must  be  10.  bytes) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 

Two  word  integer  array  to  receive  the  completion  status  of  the  operation 

Integer  variable  specifying  node  number  (SBnnn:)  of  the  node.  The  node 
number  must  correspond  to  the  base  port  address  of  the  node 


The  user's  buffer  is  filled  with  the  following  information: 


byte  1 
byte  2 
byte  3-6 
byte? 
byte  8 
byte  9 


Node  number 

Node  status  (0  =  node  open,  255  =  node  does  not  respond) 

Node  name  (RAD50  format) 

Number  of  active  connections 

Maximum  number  of  connections  allowed  (32.) 

Number  of  host  pending  connections 

Number  of  remote  pending  connections 


byte  10 
The  possible  returns  are: 

issue      =     Successful  completion 

lE.NNN    =     Node  not  open 

lE.BAD     =     User's  data  buffer  too  small  (isize  <  10.) 
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5.2.8     NIGNNO— Get  Node  Number 

NIGNNO  is  a  subroutine  that  returns  information  about  a  specific  node.  The  node  is  specified  by  noae 


name. 


Calling  Sequence: 

CALLNIGNNO(lun,ibufad,isize4iefn],(istsl,nodnam) 


Arguments: 
lun 

ibufad 
isize 
iefn 

ists 
nodnam 


Logical  unit  number  assigned  to  NI: 

Buffer  to  be  filled  by  this  call 

Size  of  buffer  (must  be  10.  bytes) 

Integer  variable  specifying  event  flag  to  set  when  the  operation  is  com- 
plete 

Two  word  integer  array  to  receive  the  completion  status  of  the  operation 

Two  word  integer  array  specifying  node  name  (in  RAD50  format)  of  the 
desired  node 


The  user's  buffer  is  filled  with  information  in  the  same  format  as  for  NIGNNA. 
The  possible  returns  are: 

IS.SUC      =     Successful  completion 

lE.NNN    =     No  node  open  with  that  number 

lE.BAD     =     User's  data  buffer  too  small  (isize  <  10.) 

Note  that  nodnam  is  in  the  same  format  as  words  2-3  of  the  Connection  Status  Block  described  in 
Section  3.4.1. 
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5.3    ACQUISITION  OF  NETWORK  STATUS  FROM  MACRO  TASKS 

All  MACRO  network  status  requests  are  issued  using  the  RSX-1 1  QIO$  directive  with  the  desired  DPM 
network  function  codes. 

The  DPM  Network  function  and  request  types  for  requesting  network  status  are  shown  in  Table  5-2.  Also 
included  are  request-dependent  arguments  where  appropriate.  The  request-dependent  arguments  are 
task  or  node  names.  Since  they  are  in  RAD50  format,  they  occupy  two  words  (argl ,  arg2). 

The  following  sections  describe  the  format  of  the  individual  function  codes  and  give  a  detailed  descrip- 
tion of  each.  A  sample  program  using  some  of  the  requests  described  is  given  in  Section  5.4. 


Table  5-2     MACRO  Network  Status  Functions 


Function 
Code 


lO.GRC 


lO.GRC 


lO.GRC 


lO.GRC 


lO.GRC 


lO.GRC 


lO.GRI 


lO.GRN 


Request 
Type 


CI. ALL 


CLLOC 


CLNOD 


CI.CON 


CLRRQ 


CLTSK 


Request- 
Dependent 
Arguments 
(argl,arg2) 


none 


none 


node  name 


none 


none 


task  name 


node  number 


node  name 


Description 


Get  status  of  all  of 
the  system's  con- 
nections 

Get  status  of  re- 
questing task's  con- 
nections 

Get  status  of  all  con- 
nections of  specified 
node 

Get  status  of  a  single 
connection  for  the 
requesting  task 

Get  status  of  all  con- 
nections pending 
from  the  DIS  node(s) 
for  the  caller  task 

Get  status  of  all  of 
the  specified  task's 
connections 

Get  status  of  node  by 
supplying  node  num- 
ber 

Get  status  of  node  by 
supplying  node 

name 
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5.3. 1     lO.GRC— Get  Remote  Connection  Information 
Macro  call: 

Q10$    lO.GRQIun,...,  <  bufad,siie,reqty  p,arg  1  ,arg2  > 

Arguments: 


lun 

bufad 

size 

reqtyp 
argl,arg2 


Logical  unit  number  assigned  to  NI: 

Address  of  data  buffer  to  be  filled  by  the  system 

Size,  in  bytes,  of  data  buffer.  The  entry  requires  20.  bytes  for  each  con- 
nection 

Request  type.  See  Table  5-2. 

Request-dependent  arguments.  Together  they  specify  a  node  name  or  task 
name  in  RAD50  format.  (See  description  of  request  types  in  Table  5-2.) 


The  user's  storage  buffer  is  filled  with  one  entry  per  connection  as  follows: 


byte  1-4 
byte  5-8 
byte  9-1 2 
byte  13-16 
byte  17 


byte  18 


Host  task  name  (in  RAD50  format) 
Host  node  name  (HOST,  in  RAD50  format) 
DIS  task  name  (in  RAD50  format) 
DIS  node  name  (in  RAD50  format) 

Connection  status: 

0  =  Pending  from  the  remote 

1  =  Pending  from  the  host 
128  =  Active 

LUN  used  by  host  task  will  be  0,  if  the  connection  is  pending  from  the  re- 
mote 


Number  of  pending  Transmit  requests  from  the  host  task 
Number  of  pending  Receive  requests  from  the  host  task 


byte  19 
byte  20 
Return  codes: 

IS.SUC      =     Successful  completion 

lE.DAO     =     User's  buffer  has  been  filled,  but  is  too  small  to  contain  all  the  applicable  entries 

IE. BAD     =     Buffer  too  small  for  one  entry  (size  <20.) 

lE.NLN     =     No  connection  on  LUN 
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5.3.2    lO.GRI— Get  Remote  Information  by  Base  Port 

Macro  Call: 

Q10$    IO.GRI,lun,...,<bufad,size,unum> 

Arguments: 

lun  Logical  Unit  Number  assigned  to  NI: 

bufad  Address  of  data  buffer  to  be  filled  by  the  system 

size  Size,  in  bytes,  of  data  buffer  (must  be  1 0.) 

unum  DECdataway  unit  number  of  the  DIS  base  port 

The  following  information  is  returned  to  the  buffer: 


byte  1 
byte  2 
byte  3-6 
byte? 
byte  8 
byte  9 
byte  10 


Node  number 

Node  status  (0  =  node  open,  255  =  node  does  not  respond) 

Node  name  (RAD50  format) 

Number  of  active  connections 

Maximum  number  of  connections  allowed  (32.) 

Number  of  host  pending  connections 

Number  of  remote  pending  connections 


Return  codes: 

IS.SUC  ==  Successful  completion 

lE.NNN  =  Node  not  open 

lE.BAD  =  User's  data  buffer  too  small  (size  <  10.) 
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5.3.3    lO.GRN— Get  Remote  Information  by  Node  Name 

Macro  Call: 

QIO$    IO.GRN,lun <bufad,size,argl,arg2> 

Arguments: 

lun  Logical  Unit  Number  assigned  to  NI: 

bufad  Address  of  data  buffer  to  be  filled  by  the  system 

size  Size,  in  bytes,  of  data  buffer  (must  be  1 0.) 

arg  1  ,arg2  Nocle  name  of  DIS  (in  RAD50  format) 

The  following  information  is  returned  to  the  buffer: 


byte  1 
byte  2 
byte  3-6 
byte? 
byte  8 
byte  9 
byte  10 


Node  number 

Node  status"(0=node  open,  255  =  node  does  not  respond) 

Node  name  (RAD50  format) 

Number  of  active  connections 

Maximum  number  of  connections  allowed  (32.) 

Number  of  host  pending  connections 

Number  of  remote  pending  connections 


Return  codes: 

IS.SUC  =  Successful  completion 

lE.NNN  =  No  node  open  with  that  name 

IE. BAD  =  User's  data  buffer  too  small  (size  <  1 0.) 
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5.4    SAMPLE  MACRO  PROGRAM  USING  STATUS  REQUESTS 

;    THE    FOLLO-riG    C^OI'^^    ILLUSTHiTES    THE    OSF.    "F    M»c»0    NET-iOSK    STATUS    BtQUESTS. 
TES1     STATUS    OF    NQCE    NUM-iE»    "»"•     A^O    NODE    M*HE     "XXXXXX", 


1. 


NOOSTAl 


I 


TF9T  If    nOOE  NuMBfP  •  X "  IS  »L»E»OV  IPEN,   IF  SO  OUTOUT  »*ESSACE 

"K'OPE  M)'*1E««  X  IS  »L'»E»f)V  OPEM", 

IF  NnoE  NijiUE"  "<"  IS  CLOSEO» 

TEST  IF  NOOF  NAM?  "XXXXXX"  IS  IN  U8F  4Y  A^OTMEP  NODE, 

IF  IN  use,  OUTPUT  MESSAGE  "MODE  name  xXXXXX  IS  IN  USE  RV  NOOE  NHMflEK  "X"", 

IF  NODE  NiiMPE«  "X"  IS  CLOSEO,  ANO  NODE  namf  "xXXVXX"  IS  NOT  IN  USE 

BY  ANOTHER  NOOE,  THEN  OUTPUT  MgsSAGEl  "NODE  NU•«^FP  "X"  NQOE  NAME 

"XXXXXX"  IS  AVAILABLE", 


1,  TEST  IF  NOOE  NU^*BER  X  IS  alREAOY  OPEN 


MOV 

OTo* 

C^Pfi 
f>ER 

CMPP 

BNE 

CALL 

BP 


N0DN'jM,<I0GBl*(J.I0PL*a>  I'-OVE  8INA.»Y  NOOE  NUMBEP  INTO  PPB 
MlOr,a\  ICET  STATUS  OF  NOOE  HY  SUPPLYING 


•  IE.NNS,SBIOSs» 

•  IS.SUCS'^IOSB 
OPNMSG 

7»!$ 


jNODE  NUMBER 

INOOE  NUMBER  X  CLOSED? 

lYES 

iSUCr.ESS? 

|N0,  OUTPUT  EBPOP  '^FSSAr.F 

lOUTPUT  MESSACCI  "NODE  NUMBER  X 

lis  ALREAOY  OPEN" 


I  2,  NOPE  riuMdER  X  IS  CLOSED, 

»  TEST  IF  NODE  f'AME  "XXXXXX"  IS  IM  USE  BY  ANOTHER  NODE 


20SI 


seftt 


MCV 
MOV 
OIP» 

C^'PH 

BNE 

CMPB 

SEQ 

MOVB 


CALL 

an 

CMPB 

BFO 


NAMBA0,<IOG«N*0.I0PL*«>  »»*OVE  1ST  3  CHAR  RAOSJ'  NOOF  NAME  INTO  OPB 

N*MHAn*2,<I0G«N»0,IOPL«b>|f*OVE  NEXT  ^_C"*AR_  I NTOOPB 

•lOGRN 


•IS.SUCf SPlOSd 

3i^S 
BUFAO.NOONUM 

6?S 

BUFA0,ARGBLK*4 

USEMSG 

70S 

•lE.NNN.SBlOSB 

6CS 


5  OUTPUT  I/O  STATUS  ERROR 


50St     CALL 

BR 
I  3,  MERE  IFi 


ERRMSG 
70S 


jGET  STATUS  OF  NODE  BY  SUPPLYING 

jNOOE  NAME 

ISUCCESS? 

jNO 

lYES,  NOOE  NUMBER  RETURNED  ■  NODE 

INUMBER  X? 

»YES 

IMASK  INTO  MESSAGE,  THE  NODE  NU-BER 

iTHAT  IS  USING  THE  RE0UE8TE0  NOt)t  NAME 

lOUTPUT  MESSAGEl  "NODE  NAME  XXXXXK  IS  IN  USE 

|HY  NOOE  NUMBER  "W"" 

jNO  NOOE  OPEN  BY  NAME  "XXXXXX"? 

lYES 

lOUTPUT  MESSAGEl  "I/O  STATUS  ERROR" 


NODF  NUMBFR  X  IS  CLOSED,  AND  NODE  NAME  "XXXXXX"  IS  NOT  IN  USE  BY  ANOTHER  NOOE 
,  NOOE  NUMBFR  X  IS  CLUStD,       ui^c      ^^^^^^^j    messaCEI  "NODE  NUMBER  X,  NODE 

•NAME  -XXXXXX"  IS  AVAILABLE" 


609  1 


CALL 


AVL»«8r, 


70SI 


RFTURN 


I 


I  GET  STATUS  OF  NODE  WY  SUPPLYING,  NOOE  NUM<»ER 

lOCRII   QIOw»  I0.GRl,u,l,.S9T0S«.,<«UFAD,l2,9i> 

I  GET  STATUS  OF  NOOE  *4Y  SUPPLYING,  NOOE  NAMF 

lOGPN:   Qinv-»  IO,GRN,a,  l,,S8I0S8,,<BUFAO,  t?,H,0» 
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PART  III:  NETWORK  UTILITIES 


CHAPTER  6 


THE  DOWN-LINE  CONTROL  UTILITY  (DLC) 


The  Down-Line  Control  task  (Dl.C)  is  the  mechanism  that  loads  system  image  files  from  FILES-1 1 
devices  over  the  DECdataway  into  the  memory  of  a  DIS.  DLC  can  perform  the  following  operations: 

•      Load  an  RSX-1  IS  system  image  into  a  DIS's  memory  and  start  its  processor 

Request  that  the  host  ACP  open  a  channel  to  a  remote  ACP,  and  initialize  the  time  and  date 
in  that  remote 

Establish  the  logical  "node  name"  of  a  DIS 

Specify  the  time-out  interval  for  a  channel 

Instruct  the  host  ACP  to  close  the  channel  to  a  remote  ACP 

Re-establish  a  channel  after  a  host  outage 

DLC  can  be  invoked  from  MCR,  from  indirect  command  files,  or  from  host  user  tasks.  DLC  com- 
mands are  used  for  two  major  operations:  Booting  and  Channel  Control. 

A  DLC  Boot  command  line  consists  of  the  following: 
filespec/reqswitch:iuium/NO:iiaiiie/switclies 

where: 


filespec 
reqswitch 

unum 

NO: 

name 

switches 


The  system  image  to  be  down-line  loaded.  The  file  specification  is  a 
standard  RSX-11  file  specifier.  Additionally,  the  default  file  extension 
is  SYS. 

One  of  two  switches  specifying  the  boot  operation  to  be  performed. 
These  switches  are  /BO  (Unconditional  Boot)  and  /BI  (Conditional 
Boot  or  Boot-IO- 

Base  port  unit  number  of  the  DIS  to  be  down-line  loaded. 
Node  name  switch. 

Node  name  of  DIS  to  be  down-line  loaded.  This  is  the  name  by  which 
this  DIS  is  accessed  from  host  tasks.  It  consists  of  1-6  alphanumeric 
characters. 

One  or  more  of  the  switches  that  can  be  optionally  specified  to  modify 
the  action  of  t'ae  required  switches.  The  optional  switches  are  described 
in  Section  6.4. 
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A  DLC  Channel  Control  command  line  consists  of  the  following: 

/reqswitch:unum/NO:name/switches 

where: 

reqswitch  One  of  two  switches  determining  whether  a  channel  is  to  be  closed  or 

opened.  These  switches  are  /CL  (Close  Channel)  and  /OP  (Open  Chan- 
nel). 

unum  Base  port  unit  number  of  the  relevant  DIS. 

NO:  Node  name  switch. 

name  Node  name  of  relevant  DIS.  This  is  the  name  by  which  this  DIS  is  ac- 

cessed from  host  tasks.  It  consists  of  1-6  alphanumeric  characters. 

switches  One  or  more  of  the  switches  that  can  be  specified  to  modify  the  action  of 

the  required  switches.  These  switches  are  described  in  detail  in  Section 
6.4. 

Once  a  remote  system  is  loaded  and  started,  DLC  usually  issues  a  request  to  the  ACP  to  open  a  chan- 
nel to  the  ACP  in  the  DIS.  The  logical  name,  or  nodename,  of  the  DIS  is  specified  in  the  DLC  Boot 
request.  The  host  ACP  informs  the  remote  of  its  name,  and  gives  it  the  current  time  and  date.  Once  the 
ACP-ACP  "handshake"  is  complete,  the  channel  is  open,  DLC  exits,  and  intertask  communication  can 
commence. 

When  system  down-line  loading  begins,  DLC  prints  the  message 

"DLC-BOOTING  PORT  xx  NODENAME  xxxxxx" 


6.1      BOOT  AND  CONDITIONAL  BOOT  OVERVIEW 

DLC  supports  two  forms  of  booting  a  remote  system  image:  Unconditional  and  Conditional. 

6.1.1  Unconditional  Boot  (/BO) 

You  can  cause  an  unconditional  down-line  load  and  boot  of  a  DIS  via  the  /BO:unum  switch,  where 
unum  is  the  DECdataway  unit  number  of  the  DIS's  base  port.  This  function  is  unconditional  because  it 
loads  over  anything  currently  in  the  remote.  However,  if  there  is  an  open  channel,  then  the  node  name 
specified  in  the  command  must  match  the  current  node  name  of  the  DIS  being  booted. 

If  the  remote  is  currently  open  with  the  same  node  name  as  the  new  system,  DLC  performs  an  implicit 
close  operation,  i  his  results  in  the  immediate  termination  of  all  connections  and  associated  network 
functions  to  that  remote. 

After  performing  the  load  and  start,  DLC  attempts  to  open  a  channel  to  the  remote  (unless  the  /-OP 
switch  has  been  specified  [see  Section  6.3]). 

6.1.2  Conditional  Boot  (/BI) 

The  primary  use  for  the  Conditional  Boot  Switch  /BI  is  to  reboot  the  host  system  when  remote  systems 
might  be  running  intact.  DLC  attempts  to  re-establish  the  ACP-ACP  channel  between  the  host  and  the 
remote.  DLC  only  down-line  loads  and  boots  the  specified  image  if  the  attempt  to  first  establish  the 
ACP-ACP  channel  fails,  indicating  that  no  valid  network  software  is  running  in  the  remote.  If  the 
channel  is  successfully  re-opened,  the  node  name  obtained  from  the  remote  takes  precedence  over  the 
node  name  supplied  with  the  command. 
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You  cause  this  conditional  boot  with  the  switch  /BI:unum,  where  unum  is  the  DECdataway  unit  num- 
ber of  the  DIS's  base  port.  If  the  remote  node  name  is  the  same  as  that  specified  in  the  command  line, 
then  the  following  message  is  printed: 

"DLC-PORT  nnn  NODENAME  xxxxxx  SYSTEM  PRESENT" 

If  a  DIS  is  running  with  a  node  name  different  than  the  one  specified  in  the  command,  then  the  node 
name  obtained  from  the  remote  takes  precedence,  as  mentioned  above,  and  the  message  printed  is: 

"DLC-PORT  nnn  UNEXPECTED  NODENAME  xxxxxx  SYSTEM  PRESENT" 

where  xxxxxx  is  the  name  obtained  from  the  remote. 

In  either  case,  active  connections  to  the  specified  remote  are  disconnected  to  restore  the  system  to  a 
"clean"  state. 

If  a  channel  cannot  be  established  with  the  remote  AGP,  then  /BI  functions  identically  to  /BO.  That 
is,  it  causes  a  down-line  load  and  boot  of  the  DIS. 

NOTE 
When  a  running  remote  has  been  successfully 
booted,  the  remote  time  is  always  reinitialized.  A 
discrepancy  in  host/ remote  times  occurs  after  the 
host  is  rebooted,  and  when  a  conditional  boot  is  is- 
sued for  a  DIS  tiiat  is  running  and  does  not  need  to 
be  rebooted.  Since  the  time  of  day  for  the  host  is 
entered  by  the  operator  when  it  is  rebooted,  it  will 
most  likely  be  different  than  the  time  of  day  in  a 
DIS  that  continued  to  run.  If  you  want  the  remote 
time  always  reinitialized  to  match  the  host  on  a  con- 
ditional boot,  the  system  manager  must  insert  the 
line: 

ISSNTM = 0        ;  always  initialize  remote  time 

In  RSXMC.MAC  before  assembling  the  remote 
ACP,  DPM50R. 

6.2    CLOSING  A  CHANNEL  (/CL) 

The  DLC  switch  /CL  can  be  used  to  close  a  communications  channel  between  the  host  and  a  node. 
This  capability  is  supplied  to  permit  an  orderly  shutdown  of  the  host  system. 

The  time  required  to  close  a  DIS  channel  can  vary  in  accordance  with  the  state  of  the  system  in  the 
DIS.  In  particular,  if  the  DIS  system  is  not  running,  the  close  operation  can  require  as  long  as  30 
seconds.  Closing  the  channel  disrupts  any  communications  over  the  channel.  Any  tasks  in  the  host  or  in 
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the  remote  which  have  established  connections  over  this  channel  are  notified  that  the  connections  have 
been  terminated  because  the  channel  has  been  closed. 

6.3  OPENING  A  CHANNEL  (/OP) 

The  capability  to  open  a  channel  that  was  not  opened  as  a  result  of  a  boot  command  is  supplied  via  the 
switch  /OP  for  two  cases: 

1.  If  the  host  is  unavailable,  it  might  be  desirable  to  have  a  back-up  system  image  available  on 
a  floppy  disk.  If  such  a  back-up  system  has  been  in  use,  the  capability  to  open  a  channel  to  it 
is  needed  when  the  host  is  again  available.  See  Chapter  9  for  a  discussion  of  using  remotes 
without  a  host. 

2.  When  debugging,  it  might  be  desirable  to  down-line  load  a  system  image  into  a  remote  and 
run  that  system  image  for  a  while  prior  to  establishing  normal  communications  to  the  host. 

NOTE 
The  remote  network  ACP,  DPIV150R,  attempts  to 
establish  communications  with  the  host  ACP, 
DPM50H,  until  the  OPEN  command  is  issued.  This 
can  cause  a  large  number  of  errors  to  be  logged. 
Therefore,  if  you  want  to  run  a  system  for  some 
time  before  establishing  network  communications, 
you  should  not  issue  the  RUN  DPM50R  command 
in  VMR.  Issue  it,  rather,  from  the  remote's  local 
terminal,  just  before  issuing  the  /OP  command  to 
DLC. 

6.4  SWITCHES 

Table  6-1  shows  the  required  items  for  the  four  DLC  commands  and  the  switches  (with  their  default 
values)  that  can  be  used  with  each  command.  Any  switch  not  shown  with  a  specific  command  is  mean- 
ingless for  that  command. 


Table  6-1     DLC  Command  Lines  and  Default  Settings 


Action 

Required  Items 

Switches  (default  setting) 

Boot 

filespec/BO:unum/NO:name 

/-DI/OP/VE/TM:0/RE:2 

Boot-If 

filespec/BI:unum/NO:name 

/VE/TM:0/RE:2 

Close 

/CL:unum/NO:name 

/RE:2 

Open 

/OP:unum/NO:name 

/RE:2/TM:0 

6.4.1     /DI  Switch 

The  /DI  switch  in  a  /BO  command  to  DLC  directs  DLC  to  invoke  the  ISVl  1  micro-diagnostics  in  the 
DIS  before  booting  the  system  image.  These  diagnostics  perform  a  confidence  check  on  the  DIS  hard- 
ware, and  take  several  seconds  to  run.  If  the  diagnostics  pass,  DLC  proceeds  to  boot;  if  they  fail,  DLC 
reports  the  failure  and  does  not  boot  the  system  image. 
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If  the  /DI  switch  is  not  specified,  (i.e.,  if  you  use  the  default  value)  DLC  attempts  to  boot  the  DIS  and 
then  open  the  communications  channel.  If  the  attempt  to  open  the  channel  fails,  DLC  invokes  the 
ISVl  1  micro-diagnostics.  It  then  re-tries  the  booting  operation  once. 

Explicitly  specifying  the  /DI  switch  is  advantageous  in  two  circumstances: 

1 .  Where  it  is  desired  to  perform  a  hardware  confidence  check  prior  to  booting  a  system  image. 

2.  Where  diagnostic  maintenance  has  just  been  performed  on  the  DIS.  (Executing  diagnostics  in 
the  DIS  under  host  control  can  leave  the  DIS  in  an  abnormal  state.  The  /DI  switch  restores  a 
normal  state  prior  to  booting.) 

6.4.2  /-OP  Switch 

The  /-OP  switch  in  a  /BO  command  to  DLC  inhibits  opening  the  channel.  Since  opening  the  channel 
is  a  prerequisite  to  establishing  any  intertask  communication,  the  /-OP  switch  is  not  normally  advis- 
able. 

If  the  system  image  is  not  an  RSX-1  IS  system,  or  if  no  intertask  communications  are  required,  the  /-OP 
switch  should  be  included. 

Note  that  if  the  /-OP  switch  is  used,  there  should  be  no  network  software  running  in  the  remote;  that 
is,  task  DPM50R  should  not  be  run  in  the  mote  system  image.  If  DPM50R  is  run,  it  attempts  to 
establish  communications  with  the  host  ACP,  DPM50H,  which  (because  of  the  /-OP  switch),  is  not 
listening.  As  a  result,  an  entry  is  made  into  the  DECdataway  error  log  every  ten  seconds  for  as  long  as 
DPM50R  is  running. 

6.4.3  /-VE  Switch 

Booting  a  system  image  typically  involves  two  major  steps: 

1.  The  system  image  is  copied  from  a  disk  file  to  the  remote  over  the  DECdataway. 

2.  The  system  image  is  then  read  from  the  disk  file  and,  concurrently,  read  from  the  remote. 
These  two  images  are  compared. 

The  /-VE  switch  is  supplied  as  a  shortcut  for  program  development.  Although  specifying  the  /-VE 
switch  makes  booting  faster,  it  is  strongly  recommended  that  you  do  not  use  this  switch  in  a  production 
environment.  Specifying  /-VE  in  a  /BO  or  /BI  command  to  DLC  causes  the  verification  step  to  be 
bypassed. 
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6.4.4     /TM  Switch  .  .  ,  . 

The  /TM  switch  in  a  /BO  or  /Bl  command  to  DLC  controls  the  interprocessor  time-out  support  (de- 
scribed in  Section  2.5)  for  the  communications  channel  between  the  host  and  the  specified  DIb.  I  he 
syntax  is: 


/TM: 


.where  0 


<  s  =  ^ 


1708 


or 


/TM:s. 


,where  0  =<  s  =<  120io 


The  time-out  parameter,  if  greater  than  zero,  is  the  approximate  interval  m  seconds  at  which  the  net- 
work ACPs  exchange  handshake  messages.  If  the  time-out  parameter  is  zero,  time-out  support  is  dis- 
abled for  this  remote.  If  the  /TM  switch  is  omitted,  time-out  support  is  also  disabled  tor  the  remote, 
since  zero  is  the  default  value  of  the  switch. 

The  time-out  parameter  has  two  significant  effects: 

1.  The  time  interval  between  failure  of  the  channel  and  notification  of  applications  tasks  with 
established  connections  over  that  channel  is  approximately  s  +  5  seconds. 

2.  Handshake  messages  add  to  the  traffic  load  on  the  DECdataway,  even  though  they  are  not 
exchanged  if  normal  data  traffic  has  recently  occurred. 

For  most  applications,  it  is  recommended  that  the  time-out  parameter  be  10-60  seconds. 

6.4.5     /RE  Switch  ^  .  .  « 

DLC  normally  tries  to  down-line  load  a  system  image  twice.  If  you  want  to  change  that  parameter,  use 
the  /RE  switch  in  a  /BO  or  /Bl  command  to  DLC.  It  specifies  the  number  of  times  DLC  is  to  try 
down-line  loading  the  system  image.  The  syntax  is: 


/RE:n 


,where  1  =<n  =<1778 


or 


/RE:n. 


,where  1  =<n  =<127io 


6.5     BOOT  AND  CONDITIONAL  BOOT  EXAMPLES 

The  following  two  commands  are  identical,  with  the  assumption  that  the  UIC  in  the  second  example  is 
already  set  to  [1,60]  when  the  command  is  executed. 

Example  1: 

> DLC  S\i):[  I .M)]RS\  I  IS.S VS/ BO:  1 76/ NO:RFM  1 26 

Example  2: 

>DLC  RSX1IS/B0:176/N0:RFMI26 
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DLC  down-line  loads  the  system  image  named  RSXIIS.SYS,  stored  on  SYO:  under  the  UFD  of 
(1,601,  into  the  node  whose  base  port  is  SB176:,  and  assigns  a  name  of  REM126  to  that  node.  In  addi- 
tion, the  default  switch  values  /.D1/VE/TM:0/RE:2  (see  Table  6-1),  cause  DLC  to: 

Not  run  the  ISVl  1  micro-diagnostics  unless  necessary 

Open  the  communications  channel  between  the  host  and  REM  126 

Verify  the  down-line  loading  by  reading  back  and  comparing 

Disable  time-out  support 

Retry  the  down-line  load  once  (if  necessary) 

Example  3: 

>DLC  RSX11S/B1:176/N0:REMI26 

DLC  attempts  to  open  a  channel  to  the  node.  If  the  attempt  is  successful,  no  further  action  is  per- 
formed. If  the  channel  cannot  be  opened,  this  command  is  equivalent  to  Examples  1  and  2. 

Example  4: 

>  DLC  RSXlIS/DO:176/NO:REM126/ fM:15. 

This  example  is  identical  to  Examples  1  and  2,  except  that  time-out  support  is  enabled  with  an  approx- 
imate handshake  message  interval  of  1 5  seconds. 

6.6     USER  TASK  INTERFACE  TO  DLC 

User  tasks  can  invoke  DLC  and  pass  commands  to  DLC.  DLC  also  returns  completion  status  to  the 
requesting  task.  Some  typical  uses  are: 

•  If  a  task  in  the  host  determines  that  its  partner  in  a  remote  has  hung  or  been  corrupted,  the 
host  task  can  command  DLC  to  down-line  load  a  new  system  image. 

•  If  you  desire  to  schedule  a  system  image  to  be  down-line  loaded  and  executed  (e.g.,  on  Sun- 
days) regardless  of  which  of  several  system  images  reside  in  the  remote  at  that  time,  you  can 
write  an  application  task  to  control  scheduling.  The  task  must  first  invoke  DLC  and  then 
invoke  the  required  host  task  to  communicate  with  that  system  image. 
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6.6.1     Invoking  DLC  from  FORTRAN  Tasks 

FDLC  is  a  subroutine  that  invokes  a  copy  of  the  DLC  task,  and  passes  a  command  for  execution. 
Control  immediately  returns  to  the  caller.  The  FDLCW  subroutine  performs  the  same  function  as 
FDLC,  but  does  not  return  to  the  caller  until  the  requested  DLC  operation  has  completed. 

Calling  Sequences: 

CALL  FDLC(lcmdad[,lcmdsz](,ists)[,iefnl) 
CALL  FDLCW(icmdad,[lcmdsz],(  ists],iefn) 


Arguments: 
icmdad 
icmdsz 

ists 
iefn 

Example: 


Array  containing  ASCII  command  line 

Integer  variable  specifying  the  size  in  bytes  of  the  DLC  command 
string.  If  icmdsz  is  omitted,  the  command  line  is  searched  for  the  first 
null  byte. 

Integer  to  contain  completion  status 

Integer  variable  specifying  the  event  flag  to  be  set  when  the  operation  is 
complete. 


GOCDBO  =  1  +  29*256 

CALL  FDLCWCDLC  DEMO/BO:  16/N0:G0P ',,  RESULT  ,  9  ) 
IF  (RESULT. NE.GOODBO)  STOP  'Boot  GOP  failed.' 
CALL  NICONX  (...) 
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6.6.2     Invoking  DLC  from  MACRO  Tasks 

The  DLCMS  macro  invokes  a  copy  of  DLC  and  passes  a  command  line  for  execution.  Control  immedi- 
ately returns  to  the  caller.  The  DLCMWS  macro  performs  the  same  function  as  DLCMS,  but  does  not 
return  to  the  caller  until  the  requested  DLC  operation  has  completed. 

NOTE 
The  parameters  in  the  following  two  calls  are  ad- 
dresses of  words  or  registers  that  contain  the  ad- 
dress of  an  operand  as  described  below. 

Calling  Sequences: 

DLCM$    icmdad4icmdsz],[ists],[efn],[ast] 
DLCMW$    icmdad,[icmdsz],[istsl,(efn],[ast] 


Arguments: 
icmdad 

icmdsz 

ists 
efn 
ast 


The  start  of  the  DLC  command  line.  The  command  line  can  be  termi- 
nated by  a  null  byte  (.ASCIZ). 

Size  of  command  line.  Optional  if  command  line  is  terminated  by  a  null 
byte. 

Status  word  to  receive  completion  status  of  the  operation. 
Number  of  event  flag  to  be  set  when  operation  completes. 
AST  to  be  exercteJ  when  the  operation  completes. 


Example: 


.MCALL   EXIT$S, DLCMWS 


CMDLIN:     .ASCII   !DLC  SYSllS/BO: 1/NO : JOHN ! 
SIZE  =  <.-CMDLIN> 


CMDSIZ: 

.WORD 

SIZE 

;  Byte  count  of  DLC  command 

STAT: 

.WORD 

0 

;  Status  word 

EFLAG: 

.WORD 

1 

;  Event  flag 

START: 

DLCMW$   ICMDLIN , ICMDSIZ , ISTAT , lEFLAG , IDLCAST 


DLCAST: 


EXIT$S 

ASTXSS 

. END     START 
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6.7     DLC  MESSAGES 

Tables  6-3  and  6-4  show  the  message  number  and  severity  code  that  DLC  returns  to  a  task.  The  mes- 
sage number  is  returned  to  the  high  byte  of  the  status  word  (ists);  the  severity  code  is  returned  to  the 
low  byte.  Table  6-2  explains  severity  codes. 

Table  6-3  lists  errors  that  occur  when  a  task  attempts  to  invoke  DLC.  Table  6-4  lists  errors  that  occur 
during  DLC  execution.  Table  6-4  also  shows  the  corresponding  messages  which  DLC  prints  when  in- 
voked from  a  terminal  instead  of  from  a  task. 


Table  6-2     Severity  Code  (Low  Byte  Status  Word)  and 

Interpretation 


The  severity  code  field  (bits  0  through  7)  of  the  status  word  can  have  one  of  the  following  values: 


Severity  Code 
(Low  Byte) 

Interpretation 

0 

Function  pending  (not  complete) 

1 

Function  completed  successfully 

Is  set  on  a  "/^O"  command  to  indicate  that  the  specified  system  has  been  booted 
successfully.  Is  set  on  a  "/BV  command,  to  indicate  that  the  specified  system  in 
the  remote  is  still  running  intact,  or  was  successfully  booted. 

Is  set  on  a  "/CL"  command,  to  indicate  that  the  channel  between  the  host  and 
remote  has  been  successfully  closed,  or  the  port  was  not  open. 

Is  set  on  a  "/OPiN"  command,  to  indicate  that  network  communications  have 
been  established. 

2 

Hardware  error  (a  severe  error) 

(Unrecoverable  hardware  error  detected,  thus  unable  to  perform  the  indicated 
function  in  the  command  line). 

Programming  error  (a  severe  error) 

(A  programming  error  c?n  be:  a  command  line  error,  invalid  argument  passed, 
invalid  input  file,  etc.). 


Table  6-3     Error  Returns  to  ists 

Message  Number 
(High  Byte) 

Severity  Code 
(Low  Byte) 

Error  and  Meaning 

255 

4 

IE. BAD— Bad  Parameters 

254 

4 

IE. INS— DLC  was  not  installed 

249 

4 

IE. ACT — DLC  was  already  active 
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Table  6-4    DLC  Error  Returns  and  Associated  Messages 


Message 
Number 


1 


8 


none 


Severity 
Code 


none 


Message  Syntax 


DLC  -  TERMINAL  ALUN  FAILURE 

The  ASSIGN  LUN  Directive  failed.  Refer  to  the  RSX-I I M/M-PLUS  Ex- 
ecutive Reference  Manual  for  a  description  of  the  failure. 


DLC  -  COMMAND  LINE  ERROR 

Incorrect  command  line  format.  May  be  missing  parameters. 

DLC  --  UNSUPPORTED  SWITCH 

Command  line  error. 

DLC  -  FILE  NOT  CONTIGUOUS,  NOT  A  SYSTEM  IMAGE 

File  must  be  contiguous  to  be  down-line  loaded. 

DLC  -  HEADER  PRESENT,  NOT  A  SYSTEM  IMAGE 

No  header  common  block  present. 

DLC  -  NOT  SYSTEM  IMAGE 

File  does  not  conform  to  system  image  format. 

DLC  -  NO  TRANSFER  ADDRESS 

No  transfer  address  in  the  label  block  of  the  system  image. 

DLC  -  SYSTEM  VERIFICATION  ERROR 

The  down-line  loaded  system  in  the  remote  does  not  match  the  system  im- 
age on  the  host  system.  This  could  be  due  to  a  communication  error.  In 
most  cases,  a  retry  is  done. 

DLC  -  RETRY  COUNT  EXHAUSTED 

The  specified  number  of  retries  for  recovery  from  errors  has  been  exceed- 
ed. 
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Message 
Number 


none 


10 


11 


12 


13 


14 


15 


Table  6-4    DLC  Error  Returns  and  Associated  Messages  (Cont.) 


Severity 
Code 


none 


0 


0 


Message  Syntax 


DLC  -  UNABLE  TO  PERFORM  INDICATED  COMMAND  FOR 

Used  in  conjunction  with  other  messages. 

DLC  -  INTERROGATE  MODE  FOUND  NO  DIS  SYSTEM 

This  is  an  error  condition  reported  by  the  ACP  when  a  node  initialization 
fails;  e.g.,  a  system  without  DPM  network  support  is  booted  without  the  /-OP 
switch. 

DLC  -  ROM  DIAGNOSTIC 

Used  in  conjunction  with  the  next  three  messages. 

DLC  -  ISVll  QBUS  WINDOW  ERROR 

ISVll /REMOTE  I/O  interface  does  not  function  properly. 

DLC  -  REMOTE  MEMORY  ERROR 

The  ROM  Memory  diagnostic  detected  a  data  or  addressing  error  in  the 
LSI-ll's  memory. 

DLC  -  REMOTE  CPU  ERROR 

The  remote  CPU  has  failed  the  basic  instruction  set. 

DLC  --  STARTING  ROM  RESIDENT  DIAGNOSTIC 

Invoked  the  on-board  diagnostics  in  the  DIS,  which  performs  a  confidence 
check  on  the  DIS  hardware. 

DLC  -  INVALID  PORT  NUMBER  XX 

The  port  number  is  not  between  1  and  256. 
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Message 
Number 


16 

17 


18 


19 


20 


21 
22 
23 
24 


25 


26 

27 
28 


29 


Table  6-4     DLC  Error  Returns  and  Associated  Messages  (Cont.) 


2 
2 


2 
2 
2 
2 


2 
2 
2 


DLC  -  SB  ALUN  ERROR,  DSW XX 

DLC  -  SB  GLUN  ERROR,  DSW  =  -XX 

See  RSX-llM/M-PLUS  Executive  Reference  Manual. 

DLC  -  INVALID  PORT  NUMBER  XX,  NOT  A  DIS  BASE  PORT 

The  given  SB  unit  number  is  not  a  base  port  or  not  a  DIS. 

DLC  ~-  NI  ALUN  ERROR,  DSW  =  -XX 

The  assign  LUN  directive  failed  when  trying  to  assign  the  pseudo  device 
NI.  Refer  to  the  RSX-1 IM/M-PLUS  Executive  Reference  Manual  for  the 
reason  of  failure. 

DLC  -  QIO  lO.RXP  ERROR,  lOST  =  -XX 

DI  '    reived  an  error  from  the  DECdataway  driver. 


-XX 
-XX 
-XX 
-XX 


DLC  -  QIO  lO.CLS  ERROR,  lOST  = 
DLC  -  QIO  lO.OPN  ERROR,  lOST  = 
DLC  -  QIO  lO.GRI  ERROR,  lOST  = 
DLC  -  QIO  lO.GRN  ERROR,  lOST  = 

DLC  received  an  error  from  the  network  ACP. 

DLC  -  PORT  XX,  TIMEOUT  OCCURRED 

A  QIO  did  not  complete  within  10  seconds. 


DLC  -  FILE  CLOSE  ERROR,  F.ERR  =  -XX 
DLC  -  FILE  OPEN  ERROR,  F.ERR  =  -XX 
DLC  -  FILE  READ  ERROR,  F.ERR  =  -XX 


Refer  to  lAS/RSX-ll  I/O  Operations  Reference  Manual. 

DLC  -  PORT  XX  NODENAME  XXXXXX  SYSTEM  BOOTED 

Output  on  a  /BO:  or  /BI:  command,  upon  a  successful  boot. 
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Message 
Number 


30 


31 


none 


32 


none 


33 


34 


35 
36 


Table  6-4     DLC  Error  Returns  and  Associated  Messages  (Cont.) 


none 


none 


4 
1 


DLC  --  PORT  XX  NODENAME  XXXXXX  SYSTEM  PRESENT 

Output  on  a  /BI:  command,  only  when  the  remote  node  name  is  the  same 
as  that  specified  in  the  command  line. 


DLC  -  OFFLINE  PORT  XX 

Port  XX  went  off-line  during  DLC  operation. 

DLC  -  ONLINE  PORT  XX 

Port  XX  came  on-line  after  going  off-line  during  DLC  operation. 

DLC  -  INPUT  FILE  ALUN  ERROR,  DSW  =  -XX 

Refer  to  IAS/RSX-1 1  I/O  Operations  Reference  Manual. 

DLC  -  PORT  XX  NODENAME  XXXXXX 

Used  in  conjunction  with  other  messages. 

DLC  -  NODENAME  XXXXXX  IN  USE  BY  PORT  XX 

The  node  name  specified  in  the  command  line  is  already  in  use  by  the  DIS 
with  base  port  at  DECdataway  unit  XX. 

DLC  -  PORT  XX  WRONG  NODENAME 

The  node  name  specified  in  the  command  line  is  not  in  use,  but  the  port 
number  specified  in  the  command  line  is  open  (in  use). 

DLC  -  PORT  XX  DOES  NOT  EXIST 
DLC  -  PORT  ALREADY  OPEN 

The  port  number  and  node  name  specified  in  the  command  line  are  already 
open. 
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Message 
Number 


37 


38 


39 
40 
41 
42 


43 


none 


none 


44 


45 


Table  6-4    DLC  Error  Returns  and  Associated  Messages  (Cont.) 


Seve.!»y 
Code 


2 
2 
2 
2 


none 


none 


Message  Syntax 


DLC  .-  PORT  XX  UNEXPECTED  NODENAME  XXXXXX  SYSTEM 
PRESENT 

Output  on  a  /BI  command  to  inform  the  user  that  the  port  number  speci- 
fied in  the  command  line  has  a  node  name  associated  with  it  other  than  the 
node  name  specified  in  the  command  line.  The  old  node  name  is  preserved. 

DLC  -  PORT  XX  NOT  OPEN 

Output  only  for  a  /CL  command,  and  does  not  apply  to  a  /BO  or  /BI  com- 
mand. This  message  informs  the  user  that  the  port  number  specified  in  the 
command  line  is  not  open,  and  thus  cannot  be  closed. 

DLC  -  PORT  XX  QIO  lO.AOO  ERROR,  lOST  =  -XX 
DLC  -  PORT  XX  QIO  lO.DET  ERROR,  lOST  =  -XX 
DLC  -  PORT  XX  QIO  lO.ALL  ERROR,  lOST  =  -XX 
DLC  -  PORT  XX  QIO  lO.UMD  ERROR,  lOST  =  -XX 

DLC  received  an  error  return  during  an  attach  or  detach  function  from  the 
DECdataway  driver. 

DLC  -  PORT  XX  ATTACH  FAILURE 

Attach  function  did  not  complete  within  10  seconds. 

DLC  -  BOOTING  PORT  XX  NODENAME  XXXXXX 

Output  when  either  the  /BO:  or  /BI:  switch  is  used  and  system  down- 
loading begins. 

DLC  -  PORT  XX  AND  PORT  XX  NODENAME  XXXXXX  WILL  GO 
OFFLINE 

Output  when  the  on-board  diagnostics  are  invoked,  which  causes  the 
ISV  1 1  to  initialize  itself.  During  this  initialization  period,  the  ISV 1 1  goes 
off-line  on  the  DECdataway. 

DLC  -  PROTOCOL  ERROR,  PORT  XX 

Output  only  if  a  /-VE  command  has  been  used,  this  message  informs  the 
user  that  a  line  error  has  been  detected. 

DLC  --  MAXIMUM  NUMBER  OF  DIS  SYSTEMS  IN  USE 

User  tried  to  down-line  load  more  DIS  systems  than  speci- 
fied in  the  DPM  Generation  procedure. 
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6.8     INSTALLING  MULTIPLE  COPIES  OF  DLC 

Under  some  circumstances,  DPM  hosts  under  RSX-1 IM  can  benefit  from  having  multiple  copies  of 
DLC  installed.  This  is  of  no  benefit  to  DPM-PLUS  hosts. 

DLC  can  be  invoked  in  three  different  ways: 

1.  A  terminal  user  explicitly  enters  a  DLC  command. 

2.  The  host  ACP  (DPM50H)  invokes  DISBOO,  the  automatic  reboot  mechanism. 

3.  A  user  task  invokes  DLC  as  described  in  Section  6.6. 

If  a  task  invokes  DLC  when  only  one  copy  of  DLC  is  installed,  it  can  temporarily  block  another  in- 
vocation of  DLC.  For  example,  if  DISBOO  is  rebooting  one  node,  and  a  user  task  attempts  to  invoke 
DLC  to  reboot  another  node,  the  user  task  is  blocked  until  DISBOO  is  done.  A  more  serious  circum- 
stance could  occur  if,  for  example,  a  user  at  TTO:  has  invoked  DLC,  but  has  not  yet  typed  a  command 
line,  and  DISBOO  is  invoked  concurrently  to  reboot  a  failed  remote.  In  this  case,  DISBOO  is  blocked 
until  the  user  enters  and  executes  his  DLC  command. 

In  production-only  systems,  this  DLC  blockage  is  usually  short  lived,  typically  15-30  seconds.  In  sys- 
tems used  for  production  and  development,  or  in  systems  where  fast  automatic  reboot  is  desired,  a 
maximum  of  three  extra  copies  of  DLC  can  be  installed  and  concurrently  executed.  Installation  is  as 
follows: 


I^8  SDLC 

ISS  S0LC/T»5K«0LCRPB 

INS  JOLC/T*SK«OLCCCC 

I^S  »OLC/TiS'<«OLCnOO 


I  AlMsyt  Install  t^e  Date  codv  e^  DLC 

J  Use  t^^»    na**  fc  the  aeco^d  cor>v 

I  Uaa  tK<t  name  for  tht    t^ird  eoDv 

t  U»e  th<i  nane  for  tht  fourth  codv 


6.8.1     Using  FORTRAN  Calls  with  Multiple  Copies  of  DLC 

When  multiple  copies  have  been  installed,  the  following  conditions  apply  to  FORTRAN  calls: 

•  If  a  user  task  calls  FDLC  and  DLC  is  available,  the  task  gets  it. 

•  If  a  user  task  calls  FDLC  but  DLC  is  already  active,  the  task  gets  one  of  the  other  installed 
copies,  if  it  is  available.  This  occurs  transparently  to  the  user  task. 

•  If  a  user  task  calls  FDLC  and  all  of  the  installed  copies  of  DLC  are  already  active,  control 
returns  to  the  user  with  a  severity  code  of  4  and  a  message  number  of  249  (IE. ACT).  The 
user  task  must  then  wait  and  try  later. 

O  If  a  user  task  calls  FDLCW,  and  all  of  the  installed  copies  of  DLC  are  already  active,  the 
user  task  is  suspended  until  one  of  these  copies  becomes  available.  Control  does  not  return  to 
the  user  task  until  a  copy  of  DLC  has  been  used. 

Note  that  the  search  for  an  available  copy  of  DLC  proceeds  in  the  order  of  DLC,    DLCBBB, 
DLCCCC,  DLCDDD. 
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6.8.2    Using  MACRO  Requests  with  Multiple  Copies  of  DLC 

When  multiple  copies  have  been  installed,  the  following  conditions  apply  to  MACRO  calls: 

•  If  a  user  task  issues  DLCMS  and  DLC  is  available,  the  task  gets  it. 

•  If  a  user  task  issues  DLCMS  but  DLC  is  already  active,  the  task  gets  one  of  the  other  in- 
stalled copies,  if  it  is  available.  This  occurs  transparently  to  the  user  task. 

•  If  a  user  task  issues  DLCMS  and  all  of  the  installed  copies  of  DLC  are  already  active,  con- 
trol returns  to  the  user  with  a  severity  code  of  4  and  a  message  number  of  249  (IE. ACT). 
The  user  task  must  then  wait  and  try  later. 

•  If  a  user  task  issues  DLCMWS,  and  all  of  the  installed  copies  of  DLC  are  already  active,  the 
user  task  is  suspended  until  one  of  these  copies  becomes  available.  Control  does  not  return  to 
the  user  task  until  a  copy  of  DLC  has  been  used. 

Note  that  the  search  for  an  available  copy  of  DLC  proceeds  in  the  order  of  DLC,   DLCBBB, 
DLCCCC,  DLCDDD. 
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CHAPTER  7 


NETWORK  UTILITIES 


7.1     ULD— UPLINE  DUMP 

The  Up-Line  Dump  Utility  (ULD)  reads  the  memory  of  a  remote  and  writes  it  on  to  a  binary  file  on 
the  system  disk.  This  file  can  then  be  used  as  input  to  the  Crash  Dump  Analyzer  program  (CDA). 

NOTE 
The  ooly  CDA  which  can  be  used  is  the  one  from 
RSX-llM  VeraiM  4.0.  If  you  are  operating  RSX- 
IIM/PLUS,  you  can  obtafai  the  correct  CDA  from 
theRSX-llSkit. 

You  specify  an  output  file  (optional)  and  a  DECdataway  unit  number  (octal).  If  an  output  file  is  not 
specified,  a  file  is  created  under  the  current  UIC  with  the  default  file  name  ULD.CDA.  An  optional 
/ID  switch  is  also  available  with  ULD.  This  switch  identifies  the  version  of  ULD  being  used. 

ULD  does  the  following: 

1 .  It  halts  the  remote  system.  (Note  that  the  PC  contents  for  the  current  system  are  lost,  thus 
making  it  impossible  to  restart  the  remote  system  without  down-loading  a  new  image.) 

2.  It  retrieves  the  values  of  the  general  purpose  registers,  the  memory  management  registers  (if 
the  node  is  a  mapped  remote),  and  the  remote  memory  size. 

3.  It  reads  the  Symbol  Table  file,  to  determine  the  location  of  the  System  Crash  Routine.  If  it 
does  not  find  the  Crash  Routine,  ULD  exits.  (Since  the  Crash  Routine  is  a  SYSGEN  option, 
you  must  make  sure  to  include  crash  dump  support  when  generating  the  RSX-1  IS  system.) 

4.  It  deposits  the  contents  of  the  remote's  registers  in  the  Crash  Routine's  buffer. 

5.  It  opens  an  output  file  based  on  the  size  of  the  remote's  memory. 

6.  It  reads  the  remote  memory  to  the  output  file. 

ULD  does  not  use  the  network  ACP.  It  operates  directly  through  the  DECdataway  controller  driver. 
If  a  remote  has  an  open  channel,  you  must  close  the  channel  with  DLC  prior  to  running  ULD. 
ULD  can  also  accept  indirect  command  files  as  input. 
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The  general  format  of  the  ULD  command  line  is: 
ULD  outputrilespec  =  SBn:,inputfilespec 

where: 


outputfilespec 


=     The  file  to  which  the  remote's  memory  contents  are  to  be  written.  The 
default  extension  is  CDA. 


=     The  base  port  unit  number  of  the  remote. 

=     The  Symbol  Table  (STB)  input  file.  The  default  extension  is  STB. 


SBn: 
inpuifilespec 

Examples: 

>ULD[150,1501TEST.CDA  =  SB5:,(1,601RSX11S.STB 

A  binary  file,  TEST.CDA,  is  created  on  the  system  disk  in  [1 50,1 50]  containing  all  of  mem- 
ory from  unit  5. 

>ULD  FILE  =  SB5:,RSX11S 

A  binary  file  named  FILE.CDA  is  created  on  the  system  disk  under  the  current  UlC  con- 
taining all  of  the  memory  from  unit  5.  The  default  extension  for  the  input  file  specification  is 
STB. 

>ULD  /ID 

The  current  version  number  is  printed  in  the  form  of: 

ULD...  VERSION  VOX. 

>ULD@ANALYZ 

All  valid  command  lines  in  the  indirect  command  file  ANALYZ.CMD  are  executed. 

7.1.1     ULD  Error  Messages 

ULD~COMMAND  LINE  ERROR 

A  syntax  error  exists  in  the  command  line. 
ULD~STB  INPUT  FILE  SPEC  NOT  FOUND  IN  COMMAND  LINE 

An  STB  file  specification  is  required. 
ULD-CDA  OUTPUT  FILE  SPEC  NOT  FOUND  IN  COMMAND  LINE 

Output  file  was  omitted. 
ULD~SB:  DEVICE  NOT  SPECIFIED  IN  COMMAND  LINE 

The  base  port  unit  number  must  be  specified. 
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l!LI)--FRROR 

RFMOTK  HAS  NO  MEMORY  MANACEMKNT 

BUT  THE  STB  FH.E  IS  DEFINED 

FOR  A  MEMORY  MANAGEMENT  SYSTEM 


You  have  probably  specified  the  wrong  unit  number  or  the  wrong  STB  file.  Verify  and  try  again. 


I  j  I  rj ERROR 

REMOTE  HAS  MEMORY  MANAGEMENT 
BUT  THE  STB  FILE  IS  NOT  DEFINED 
FOR  A  MEMORY  MANAGEMENT  SYSTEM 

Verify  that  you  are  using  the  correct  STB  file  and  the  correct  unit  number  and  try  again. 

I J  LD— ERROR 

COULD  NOT  FIND  SOME  NEEDED  SYMBOLS 
IN  THE  STB  FILE  THAT  WAS  SUPPLIED. 
THERE  ARE  TWO  REASONS  FOR  THIS. 

1.  THE  SYSTEM  WAS  NOT  GENERATED  WITH  CRASH  SUPPORT,  OR 

2.  THE  INCORRECT  STB  FILE  WAS  USED 

PLEASE  MAKE  SURE  YOU  ARE  USING  THE  CORRECT  STB  FILE  AND  TRY  AGAIN. 

In  order  for  ULD  to  succeed,  it  must  be  able  to  determine  the  locations  of  the  System  Crash 
Routine.  Crash  Dump  Support  must  be  included  when  the  RSX-1  IS  system  is  generated. 

ULD--ILLEGAL  SB:  UNIT  NUMBER 

The  unit  number  was  either  missing  or  not  in  octal. 
ULD--DEVICE  NOT  A  DIS 

You  have  probably  specified  the  wrong  unit  number. 

ULD--ERROR  ON  SBN: 

BECAUSE  OF  ACTIVITY  ON  THIS  UNIT  ULD 
CANNOT  ACCESS  MEMORY  FROM  THE  DIS.  TO  DO 
SO,  PLEASE  USE  DLC  TO  CLOSE  THE  CONNECTION 
AND  THEN  TRY  AGAIN. 

Active  connections  on  the  unit  prevent  ULD  from  accessing  the  memory. 

ULD--ERROR  IN  CDA  OUTFILE  SPEC 
F.ERR  CODE  =  N 

See  the  lAS/RSX-ll  I/O  Operations  Reference  Manual. 
ULD-FILE  ERROR  DURING  CLOSE  F.ERR  =  N. 
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IJLD-FILE:  FILE.EXT  OPEN 
READ 
WRITE 

The  most  probable  cause  of  this  message  is  a  disk  error. 
IILD-EOF  ENCOUNTERED  WHEN  READING  STB  FILE 

End  of  Fik  means  that  you  have  probably  entered  the  wrong  file  specification. 
ULD--FILE  SPEC  NOT  ALLOWED  ON  SB:devicename 

You  have  probably  mistyped  the  command  line.  , 

If  you  have  intentionally  loaded  an  unmapped  system  image  into  a  DIS  with  memory  management, 
this  check  can  be  overridden  by  means  of  the  switch,  /OV.  This  is  an  example: 

>L!LD  FlLE-SB5:,RSXnS/0V 

7  2    UPDUMP—UP-LINE  DATA  DISPLAY  TASK 

IJPDUMP  is  an  interactive  program  that  displays  or  lists  at  a  host  terminal  the  contents  of  memory 
and/or  the  contents  of  registers  in  a  remote. 

A  remote  must  be  on  line  and  have  no  communications  channels  OPEN  from  the  host  to  the  remote  for 
UPDUMP  to  operate  successfully.  If  a  channel  is  open  to  that  remote  node,  use  DLC  to  close  it. 

UPDUMP  can  be  used  to  display  or  list  the  contents  of  memory  while  the  remote  is  running,  without 
affecting  the  operation  of  the  remote.  If  UPDUMP  is  used  to  display  or  list  the  contents  of  registers, 
however,  the  remote  is  halted  and  its  register  contents  are  destroyed. 

UPDUMP  asks  five  questions: 

1.  ENTER  DEVICE  UNIT  NO.  (OCTAL): 

Enter  the  DECdataway  base  port  unit  number  of  the  remote  whose  memory  you  want  to 
examine.  { 

2.  DUMP  REMOTE  MEMORY  [Y/N]  ? 

If  you  answer  yes,  UPDUMP  continues  with  questions  three  and  four.  If  you  answer  no, 
UPDUMP  skips  to  question  five. 

ENTER  STARTING  ADDRESS  (OCTAL): 
ENTER  WORD  COUNT  (DECIMAL): 

UPDUMP  prints  out  the  contents  of  the  consecutive  memory  locations  for  as  many  words  as 
you  specify.  It  then  returns  to  question  two.  You  can  thus  examine  selected  portions  ot  the 
remote's  memory. 


3. 
4. 
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5.      DUMP  REMOTE  REGISTERS  [Y/N]  ? 

If  you  answer  Y,  UPDUMP  prints  the  contents  of  registers  R0-R5,  tells  you  if  there  is  mem- 
ory management  in  the  remote,  and  prints  the  size  of  the  remote  memory.  UPDUMP  then 
returns  to  question  one.  If  you  answer  N,  UPDUMP  also  returns  to  question  one. 

A  sample  run  of  UPDUMP  follows: 

BUN    iijpnuMP 

iiPDU'^P        '^1,9^  2b-»PR-7? 

fNTEB  DFVICE  UMT  NO,  (OCTAL)lli« 

QUMP  REMOTE  "E^OBY  [v/*^]  ?y 
fNTfs  STARTING  AOOBESS  (OCTAL'Jt/ 
tNTEB  »*riRD  COUNT  (0ECI'^*L5i9 

(.f»f.c(»n/     HiM72?     -^vvfiti"^     ^^^^^b     ?wf»3ap)     »(»nii     3't(iJ3u^     ^v^Tihu     zv>9iu9 
i»(»et»2(»/      P(<i77ua 

OUMP    REMOTE    HEHORV     [V/S)     ?s 

PUMP    REMOTE    MEGISTFRS     fv/N]     7y 
GENERAL    REGISTERSI 

B0at>i;tlUU6       RliC'?!357'5       R2sPi:'371>^       B33(»i?l['0H0      rtttBpitft0!^aa       RSBt'Mf^Hi^a 
***    KO     -"EMOPy    KANAtiE^ENT     IN    THIS    REMOTE    *♦* 

REMOTE  ME^"ORV  SIZE  =  5«>  '<B. 
ENTER  DEVICE  UNIT  NO.  fOCTAL)!*? 

UPDUMP  uses  the  memory  management  registers  in  the  remote  to  determine  the  size  of  memory.  If 
the  remote  does  not  have  memory  management,  UPDUMP  assumes  the  size  of  memory  to  be  56 
KBytes. 

If  the  remote  contains  an  LSI-11/23,  the  contents  of  RO  can  be  inaccurately  reported  as  377.  If  the 
low  byte  of  RO  is  found  to  contain  this  value,  validity  of  contents  should  be  checked. 

7.3    NISTAT— NETWORK  STATUS  REPORTER 

NISTAT  reports  at  your  terminal  the  status  of  DIS  nodes  and  their  logical  connections. 

You  can  run  NISTAT  uninstalled  by  typing: 

>  RUN  SNISTAT 

NISTAT  then  asks  you  two  questions  about  the  desired  report,  as  follows: 

WANT  TO  LIST  CONNECTIONS?  > 

Enter  Y  if  you  want  NISTAT  to  include  for  each  node  the  list  of  host  and  remote  tasks  in  each 
connection  pair. 
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WANT  TO  LIST  NODE  AND  CONNECTION  DETAILS?> 

If  you  answered  N  to  LIST  CONNECTIONS,  NISTAT  just  asks 
WANT  TO  LIST  NODE  DETAILS? > 

Enter  Y  if  you  want  details  added  to  the  report,  as  described  below. 
The  NISTAT  report  has  an  entry  for  each  open  DIS  node,  the  first  line  of  which  is 

SBxx:  nodename  IS  OPEN 
If  you  requested  node  details,  the  next  line  lists  the  number  of  active  connections  to  the  node. 

If  you  requested  connections  listed,  NISTAT  lists  the  names  of  host  and  remote  tasks  engaged  in  each 
logical  connection. 

If  you  requested  connection  details,  each  listing  of  a  host/remote  task  pair  is  followed  by: 

•  Host  task's  logical  unit  number  (LUN) 

•  Number  of  Transmit  requests  pending  for  the  host  task 

•  Number  of  Receive  requests  pending  for  the  host  task 

You  can  install  NISTAT  with  task  name  ...NIS.  To  run  the  installed  NISTAT,  type: 

>NIS 

NISTAT  then  lists  'he  connections  for  each  open  DIS.  (Running  the  installed  NISTAT  is  equivalent 
to  answering  Y  and  N  to  the  two  questions.) 
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Example: 

KETwOHK  STATUS  9EI*0BT  - 

«»NT  TO  LIST  C0N»<iCTinN8?»v 

X4NT  TO  LIST  NODE  4N0  CONNECTION  OfTAILS?>V 

SPll  ■  B0Rw2tt  IS  OPEN 

2  CONNECTIONS  A«F  ACTIVE, 

HOST  TASH  ■  'H08T2U',  REMOTE  TASK  ■  'B0V2a». 
CONNECTION  IS  ACTIVE, 
W0ST2a  IS  USING  LUN  m         2, 
MOST  2a  HAS    1  TRANSMIT   PENDING. 

MOST  TA8*<  «  '-^IFEja',  PE'^OTE  TAS<  ■  ♦GIBL2a', 
CONNECTION  IS  ACTIVE. 
NlFE2a  IS  USING  LUN  a     2. 
*IFE2«  HAS    I  TBANS'^IT   PE^.OING, 
wIFE2tf  MAS    1  RECEIVE   PFNDIwg. 

SH16I  «  NOOEW?  IS  OPEN, 

0  CONNECTIONS  *«E  ACTIVE, 

a  CONNECTIONS  *»£  PENDING  FROM  THE  REMOTE, 

MOST  TASK  s  'OPMMOS',  REMOTE  TASK  s  'OPMBEH'. 
CONNECTION  IS  PENDING. 

HOST  TASK  s  'OPMHOS',  REHOTE  TASK  ■  •OPMREM*. 
CONNECTION  IS  PENDING, 

HOST  TASK  a  'PPMMOS'.  REMOTE  TASK  •  'nPHREM', 
CONNECTION  IS  PENnlNC, 

HOST  TASK  B  'nPMMOS',  REMOTE  TASK  ■  'OPMREM*. 
CONNECTION  IS  PENDING, 
ENp  OF  NETwORW  STATUS  REPORT, 
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PART  IV:  NETWORK  OPERATIONS  NOTES 


CHAPTER  8 


DECdataway  REMOTE  INTERFACE  ERROR  REPORTING 


The  ISVl  1  provides  a  direct-mcmory-access  interface  between  the  remote  and  the  DECdataway.  The 
low-level  communication  line  protocol  is  completely  handled  by  the  ISVl  1.  To  provide  simulated  full 
duplex  communications  on  the  DECdataway,  the  ISVl  1  responds  to  two  DECdataway  addresses  (N 
and  N  +  1)  and  can  process  an  I/O  request  on  each  of  the  two  ports  simultaneously.  In  addition  to  the 
functions  supported  by  the  DECdataway  remote  interface  driver  (SVDRV),  the  ISVll,  upon  com- 
mand from  the  host  and  without  regard  to  the  state  of  the  remote's  processor,  can  execute  the  follow- 
ing commands: 

•  Down-line  load  and  up-line  dump  remote  memory 

•  Halt  and  start  the  remote  processor 

•  Loopback  data 

•  Transmit  with  bad  CRC 

A  set  of  micro-coded  diagnostic  procedures  are  contained  in  the  ISVl  Ts  ROM.  These  micro-diagnos- 
tics perform  a  limited  check  of  a  remote's  LSI-1 1  processor  and  memory  and  a  complete  check  of  the 
ISVll. 

The  micro-diagnostics  are  executed  automatically  when  the  remote  is  powered-up,  and  can  also  be  in- 
voked by  the  host's  on-line  diagnostics  task  CZKMPx  (where  x  is  the  version  letter). 

8.1     ERROR  REPORTING  ^    ^^^^ 

If  the  ISVll  detects  an  error  on  the  DECdataway,  it  reports  that  error  to  the  DECdataway  remote 
interface  driver  (SVDRV).  Error  notification  messages  are  then  sent  to  the  console  termmal  on  the 
remote  (if  one  is  attached)  by  the  task  ISVERR.  Of  course,  in  order  for  this  to  take  place,  ISVERR 
must  be  present  in  the  remote.  The  messages  contain  the  following: 

•  A  sequence  number 

•  An  ISVl  1  port  number  (0  or  1) 

•  The  current  contents  of  the  third  characteristics  word  (U.CW3)  for  that  port 

•  The  time  and  date 

•  Text  to  identify  the  error  (see  Table  8-1) 
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All  errors,  except  INVALID  TT  hRROR  C  ODb,  also  cause  ISBl-RR  at  the  host  to  generate  an  entry 

in  the  host  error  log.  In  most  cases. 

the  host  entry  is  LINT:  ERROR  with  TMO-T,  because  the  ISVll 

does  not  respond  to  an  invalid  message  received  from  the  DF.Cdataway  controller,  (lor  example,  when 

ISVHRR  reports  a  CRC  error  at  the  remote.  ISBHRK  logs  a  TMO  error  at  the  host.  The  ISBl  1  auto- 

matically recovers  from  transient  communication  line  errors,  such  as  CRC  and  TMO  errors.)  In  other 

cases,  the  ISVll  goes  off-line  and  then  comes  back  on-line,  producing  corresponding  entries  in  the 

PHCdataway  error  log. 

Since  most  errors  reported  by  ISVHRR  will  also  cau.se  errors  to  be  logged  by  ISBLRR,  it  is  not  essen- 

tial that  ISVERR  be  included  in  system  images.  SVDRV,  NIDRV,  and  DPM50R  will  function  cor- 

rectly without  ISVERR.  In  particular,  if  a  remote  does  not  have  a  terminal  device,  it  is  pointless  to 

include  ISVERR. 

Table  8-1     ISVll  Error  Detection 

Text 

Meaning 

BAD  PROTOCOL 

The  ISVl  1  received  a  valid  command  with  invalid  format. 

BUFFER  OVERRUN 

The  ISVl  1  received  a  data  message  too  large  to  fit  in  the  current 
Receive  buffer. 

CRC  ERROR 

The  ISVl  1  received  a  message  which  failed  the  CRC  check. 

DOWNLOAD  ERROR 

The   ISVll    received  an  improperly  fo-matted  down-load  com- 
mand. 

INVALID  COMMAND 

The  ISVl  1  received  a  message  of  unknown  type  which  had  good 
CRC. 

INVALID  I  I  ERROR  CODE 

ISVERR  did  not  recognize  the  error  code  reported  by  the  DEC- 
dataway  port  driver. 

MODEM  DROPOUT 

The  ISVl  1  detected  modem  dropout  while  it  was  receiving  a  mes- 
sage. 

RECEIVE  OVERRUN 

The  ISVl  1  failed  to  empty  its  RECEIVE  data  buffer  register  be- 
fore the  next  byte  arrived. 

RECEIVER  ABORT 

The  ISVl  1  detected  a  DECdataway  abort  while  it  was  receiving  a 

message. 

RCV  STATUS  AVAILABLE 

The  ISV 1 1  micro-code  detected  an  illegal  hardware  state — RSA  bit 
asserted  between  messages. 

TRANSMITTLR  UNDERRUN 

The  ISVll   failed  to  keep  its  TRANSMIT  buffer  register  full 
while  it  was  transmitting. 

UNEXPECTED  READ 

The  ISBI 1  asked  for  data  from  the  ISVl  1.  The  DECdataway  port 
driver  has  an  outstanding  read.  (The  deadlock  is  resolved  by  the 
ISVll  going  off-line.) 

UNEXPECTED  WRITE 

The  ISBl  1  sent  data  to  the  ISVl  1,  but  SVDRV  does  not  have  a 

read  outstanding. 
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CHAPTER  9 


USING  THE  REMOTE  WITHOUT  THE  HOST 


# 


Any  DIS  that  has  a  device  from  jvhich  it  can  be  bootstrapped,  such  as  a  floppy  disk,  can  be  used  as  a 
stand-alone  system,  completely  independent  of  the  DPM  host.  Furthermore,  it  is  possible  to  create  a 
system  image  that  allows  you  to  not  only  boot  and  execute  a  DIS  independently  during  a  host-outage, 
but  also  to  start  network  communications  nondestructively,  once  the  host  is  again  available.  That  is, 
subsequent  network  communications  can  be  initiated  without  disrupting  the  data  base  or  tasks  running 
in  the  DIS. 

9.1  PUTTING  A  SYSTEM  IMAGE  ON  FLOPPY  DISK 

A  system  image,  complete  with  network  and  user  tasks,  can  be  created  with  VMR,  by  the  same  meth- 
ods used  for  creating  a  system  image  for  down-line  loading  via  DLC.  Once  created,  this  system  image 
can  be  converted  into  a  bootable  image  on  floppy  disk  by  the  following  command: 

VMR>SAV  DXO:name 

The  name  specified  is  irrelevant,  but  must  be  included. 

Note  that  the  same  system  image  can  be  booted  into  a  DIS  in  two  ways: 

•  Using  DLC 

•  Using  VMR  to  SAVe  it  onto  floppy  disk,  and  then  booting  from  the  floppy  disk  into  the 
DIS. 

9.2  BOOTING  FROM  A  FLOPPY  DISK 

To  boot  a  DIS  from  a  floppy  disk,  the  DIS  must  have  floppy  disk  hardware  and  an  appropriate  boot- 
strap routine  in  ROM.  For  booting  an  unmapped  system  image  (into  a  DPM 50),  a  REV- 1 1  module  is 
used  in  place  of  the  normal  TEV-1 1  terminator  module.  For  booting  a  mapped  system  image  into  a 
DPM23,  a  BDV-11  module  is  required. 

The  procedure  for  booting  is  nearly  identical  with  either  combination  of  system  image  and  bootstrap 
module.  A  console  terminal  device  is  required  in  either  case. 

A  typical  procedure  for  booting  a  DIS  is: 

1.  Turn  the  DIS's  power  off,  then  back  on. 

2.  The  DIS  types  2-3  lines  on  its  console  terminal  and  then  prompts  you  for  a  Console  ODT 
command. 

3.  Type  '173000G'  to  invoke  the  floppy  bootstrap  routine. 
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4.  The  DIS  supplies  a  secondary  prompt. 

5.  Specify  the  device  to  boot  from,  by  typing  one  of  the  following:  DX,  DXl,  DY,  or  DYl. 
Terminate  the  command  with  a  carriage  return. 

After  1-4  minutes,  the  DIS  will  begin  displaying  the  RSX-1  IS  start-up  messages  on  the  console  termi- 
nal device;  booting  is  done. 

9.3  RESTORATION  OF  HOST  COMMUNICATIONS 

When  the  DPM  host  is  again  available,  communications  between  the  DIS  and  the  DPM  host  can  be 
established  from  the  host  by  using  DLC  to  open  the  communications  channel,  .s  described  in  Section 
6.3.  Alternatively,  the  channel  can  be  opened  with  the  DPM  host  performs  a  conditional  boot,  as  de- 
fined in  Section  6.1.2. 

9.4  USAGE  NOTES 

9.4.1     Media  Compatibility 

To  boot  a  system  image  which  was  created  on  a  DPM  host  into  a  DIS,  you  must  have  the  same  type  of 
floppy  disk  on  each  system.  A  system  image  SAVed  via  VMR  onto  a  DX-device  can  be  booted  only  from 
another  DX-device.  Similarly,  a  system  image  SAVed  via  VMR  onto  a  DY-device  can  be  booted  only 
from  another  DY-device. 

For  a  DPM  host,  DX  means  a  RX01/RX02  interfaced  via  a  RXl  1  controller.  For  a  DIS,  DX  means  a 
RX01/RX02  interfaced  via  a  RXVll  controller. 

For  a  DPM  host,  DY  means  a  RX02  interfaced  via  a  RX211  controller.  For  a  DIS,  DY  means  a  RX02 
interfaced  via  a  RXV21 1  controller. 

VMR  can  be  patched  to  compensate  if  your  DPM  host  and  DIS  have  incompatible  media  densities 
(DX  vs.  DY). 


9.4.2  Limitations  on  System  Image  Size 

The  largest  system  image  which  can  be  booted  via  DLC  is  124KW,  which  corresponds  to  /BL:498. 
The  largest  system  image  which  can  be  SAVed  onto  a  DY  and  subsequently  booted  into  a  DIS  through 
its  BDV-1 1  is  123KW,  which  corresponds  to  /BL:494.  The  largest  system  image  which  can  be  SAVed 
onto  a  DX  and  subsequently  booted  into  a  DIS  through  its  BDV-1 1  is  122KW,  which  corresponds  to 
/BL:490. 

9.4.3  Errors  in  the  DIS  while  the  DPM  Host  is  Unavailable 

If  the  system  image  booted  into  the  DIS  contains  tasks  which  attempt  to  establish  connections  to  tasks 
in  the  host  errors  should  be  expected.  In  this  case,  any  connection  request  will  complete  with  an  error 
return  of  IF.RSU.  A  simple  way  of  coping  with  lE.RSU  errors  is  not  to  run  any  tasks  which  attempt  to 
establish  connections  until  the  DPM  host  is  once  again  available. 

If,  however,  the  tasks  are  designed  to  recognize  lE.RSU  as  meaning  that  the  DPM  host  has  not  yet 
been  reincarnated,  automatic  switchover  from  stand-alone  operation  to  a  normal  communication  envi- 
rorkment  can  be  performed.  For  automatic  sv/itchover  (without  manual  intervention  at  the  DIS),  it  is 
suggested  that  tasks  periodically  issue  a  connect  request,  e.g.,  every  five  seconds.  If  a  connect  request 
succeeds,  the  tasks  are  connected;  if  the  request  fails  with  an  lE.RSU  error,  it  merely  indicates  that 
the  DPM  host  is  still  unavailable. 
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CHAPTER  10 


AUTOMATIC  REBOOT 


10.1     DISBOO— AUTOMATIC  REBOOT  TASK 

DISBOO  is  an  installed  DPM  host  task  designed  for  automatically  rebooting  a  DIS  node  and  bringing  it 
back  on-line  in  the  DPM  network.  If  an  on-line  remote  fails  to  respond  to  the  host  AC?  (as  may  be  caused 
by  a  transient  power  failure  at  the  remote  or  a  DIS  system  crash),  the  host  AC?  attempts  to  resynchro- 
nize  with  the  remote.  If  the  attempt  by  the  host  ACP  to  resynchronize  with  the  remote  is  not  successful, 
the  host  declares  the  remote  "dead"  and  invokes  DISBOO.  When  this  happens,  all  connections  to  the  re- 
mote are  aborted,  and  all  n'etwork  requests  in  progress  to  the  remote  are  killed.  However,  the  commu- 
nications channel  which  was  established  with  DLC  is  still  open.  A  FORTRAN  host  task  sees  an  error  in 
the  connection  status  word.  A  MACRO-1 1  task  gets  a  disconnect  AST,  if  specified  (the  time-out  AST 
may  possibly  be  entered  pk?or  to  getting  the  disconnect  notification). 

DISBOO  obtains  the  command  needed  to  reboot  the  node,  and  also  obtains  commands  for  other  related 
actions  to  be  taken,  from  the  user-written  command  file  LB:[l,2]DISBOO.DAT.  (For  further  details  on 
DISBOO.DAT,  see  the  DPM/DPM-PLUS  System  Generation  and  Management  Guide.)  In  addition  to 
down-line  loading  a  DIS  system  and  putting  it  back  on-line,  DISBOO  may  also  run  a  host  task  and  abort  a 
host  task. 

Automatic  reboot  will  occur  only  when  each  of  the  following  is  true: 

1 .  DISBOO  and  DLC  are  installed 

2.  Commands  for  this  remote  exist  in  DISBOO.DAT 


3.  Remote  node  is  on-line 

4.  Remote  node  is  not  responding 


Time-out  support  is  not  required  for  automatic  reboot;  however,  it  is  strongly  recommended  that  you     e 
time-out  support  if  you  want  to  use  automatic  reboot. 
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10.2     DISBOO.DAT  EXAMPLE 


J   Fof  fhe  OIS  if    th»  tank  ♦si""l 
I 

Vl^^   T»NK 

OLC  LBl  (3<^li'.3k»'«JUlT^LE,SV8/B0l7/N0lT»MK/TM|J^, 

/ 

t        Fop  tK«  018  0"  th»»  NoPth  tO-tfl 

» 

flLC    i-«l  1 2?2,  ?22]  B I  r.,  3  VS/80 1 S/ NO  I  NORTN/TM  I  IS, 

RUN     IMTNO 

/ 

I       Fo^    the    018    on    tK«   South    toftrj 

» 

CfC"3    Sf)UTH 

OLC    LHt  [222,  22?)  BIG.SYS/»iO  I  S/NOlSmjTH/TMi  IS, 

RUN    INITSO 

/ 

J   If  the  ni5  In  the  1 eb  «••  runw^ng  -et  tests: 

t 

P12  -PTLA8 

4B0  NfTLOG 

DLC  DKU  t2,feaJwET/B0il2/N0|WETLA8/TMi3K», 

RUN  hETLOG 

/ 

I   If  the  OIS  ir>    the  lab  wat  running  rtrv  tettai 

I 

gt\2  DBVL*P 
480  DBVLOG 
PLC  OKI  J (3,6«]P»V/80ll2/N0|0RVLAR/TM|J«. 

RUN  BEGORY 
RUN  ORVLOG 

/ 

I   For  the  OIS  In  the  VIR  conference  roo»l 

I 

0«1  VIP 

ABO  REPORT 

PLC  LBj  tl,6alSH0w/ePtl/N0:VlR/TM|5, 

RUN  SORRY 
RUN  REPORT 
/ 
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10.3     DISBOO  ERROR  MESSAGES 

ABO Task-Logged  ABOCommand,  taken  verbatim  from  LB;[l,2]DISBOO.DAT.DISBOO aborts  the 

specified  task. 

RUN  Task-Logged  RUN  Command,  taken  verbatim  from  LB:[l,2]DISBOO.DAT.  DISBOO  requests 
execution  of  the  specified  task. 

DISBOO-IN\  v/i(ED  AT  dd-mon-yr  hr:mi:se  FOR  NODENAME  XXXXXX 
PORT  XX 

This  message  appears  when  DISBOO  is  invoked,  even  if  DISBOO.DAT  contains  no  commands  for 
this  remote. 

DISBOO-RECEIVED  DATA  BLOCK  FROM  UNKNOWN  TASK 

DISBOO  received  data  from  a  task  other  than  DPM50H. 
DISBOO-PARSE  ERROR:  INVALID  COMMAND  LINE  IN  COMMAND  FILE 

Incorrect  command  line,  or  unsupported  command,  encountered  in  the  command  file. 
DISBOO-PARSE  ERROR:  MISSING  END-OF-GROUP  TERMINATOR 

There  is  no  terminator  ("/"  slash  in  the  first  character  position)  following  the  last  command  line  of 
the  group  for  each  DIS. 

DISBOO-NC  \CTION  SPECIFIED  FOR  THIS  REMOTE 

There  are  no  commands  pertaining  to  the  failing  DIS  in  the  command  file  LB:[  1 ,2]DISBOO.DAT. 

DISBOO~LB:Il,21DISBOO.DAT  DOES  NOT  EXIST 

You  forgot  to  create  DISBOO.DAT. 

DISBOO-RCVX  DIRECTIVE  STATUS  ERROR,  $DSW  =  XX 
RQST 
CMKT 
CNCT 
ABRT 
MRKT 
WTLO 
RDAF 

See  RSX-llM/M-PLUS  Executive  Reference  Manual. 

DISBOO-FILE  ERROR  WKILF.  ATTEMPTING  TO  CLOSE  FILE:  CODE  =  XX 

An  error  was  detected  while  tryir.g  to  close  file  LB: [1,2] DISBOO. DAT.  XX  contains  a  value  in- 
dicating the  error  condition.  Refer  to  lAS/RSX-l  1  I/O  Operations  Reference  Manual. 
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DISBO()--FILE  ERROR  WHILE  TRYING  TO  READ  NEXT  RECORD:  CODE  =  XX 

An  error  was  detected  while  trying  to  read  file  l.B:ll, 21DISBOO.DAT.  XX  contains  a  value  in- 
dicating the  error  condition.  Refer  to  lAS/RSX-l  I  f/0  Operations  Reference  Manual. 

DISBOO-DLC  INVOKED:  INVALID  COMMAND  LINE  ENCOUNTERED 

The  requested  DLC  operation  encountered:  a  command  line  error,  invalid  argument,  invalid  input 
file.  etc.  '  ' 

DISBOO-DLC  INVOKED:  HARDWARE  ERROR  ENCOUNTERED 

The  requested  DLC  operation  encountered  an  unrecoverable  hardware  error.  It  was  thus  unable  to 
perform  the  DLC  function  in  the  command  line. 

DISBOO-DLC  INVOKED:  SUCCESSFULLY 

The  requested  DLC  operation  completed  successfully. 
DISBOO-DLC  INVOKED:  INVALID  SEVERITY  CODE  =  XX 

DLC  is  broken.  Send  Software  Problem  Report  (SPR). 
DISBOO -POWER  FAIL  OCCURRED,  RETRYING  DLC  COMMAND 

Upon  host  power  failure,  DISBOO  attempts  the  DLC  command  line  again. 
DISBOO-taskname  NOT  ACTIVE 

You  cannot  abort  a  task  that  is  not  active. 
DISBOO-taskname  NOT  INSTALLED 

You  cannot  abort  or  run  a  task  that  has  not  been  previously  installed. 
DISBOO-taskname  ALREADY  ACTIVE 

The  task  was  already  active  when  DISBOO  attempted  to  invoke  it.  This  is  a  warning  message. 
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CHAPTER  1 1 


SYSTEM  NOTES 


1 1.1  REMOTE  SYSTEM  TIME 

When  a  system  image  is  down-line  loaded  into  a  DIS,  the  current  time  and  date  in  the  DiS  is  in- 
itialized based  upon  the  current  time  and  date  in  the  host.  Once  started,  the  DIS  updates  its  time  and 
date  by  counting  A.C.  line  cycles  from  its  source  of  A.C.  power;  just  as  the  host  does. 

The  following  points  should  be  noted  about  remote  system  time: 

1.  The  initial  time  and  date  in  the  DIS  is  not  identical  to  the  time  and  date  in  ihe  host.  The 
discrepancy  is  less  than  one  second  if  the  DECdataway  is  lightly  loaded;  however,  if  the 
DECdataway  has  a  high  level  of  message  traffic  while  DLC  is  down-line  loading  and  starting 
a  system  image,  the  discrepancy  can  become  several  seconds. 

2.  If  the  host  and  the  DIS  are  powered  by  independent  noncoherent  A.C.  power  lines,  the  ver- 
sions of  time  and  date  in  the  two  processors  are  not  updated  at  exactly  the  same  rate.  Under 
normal  circumst,irices,  this  effect  is  extremely  small;  however,  if  an  A.C.  power  generator  is 
used  which  does  not  maintain  a  daily  cycle  count,  the  time  and  date  maintained  by  the  dif- 
ferent operating  system  in  the  host  and  in  the  DIS  drift  relative  to  each  other  and  also  show 
absolute  drift. 

3.  For  the  above  reasons,  there  is  some  discrepancy  in  time  and  date  between  different  DIS's  in 
the  same  DPM  system. 

11.2  COMMON  Task  DEVELOPMENT  ERRORS 

Given  the  requirement  that  a  remote  task  must  specify  the  taskname  of  its  partner  in  the  host,  two 
likely  situations  may  occur: 

1.  An  edit-compile-build  cycle  produces  no  visible  change  in  the  behavior  of  a  task;  and 

2.  A  task  suddenly  loses  its  ability  to  connect  to  its  partner. 

Situation  (1)  occurs  when  the  old  version  is  not  removed.  Situation  (2)  occurs  when  the  new  version  is 
not  INStalled  before  the  RUN  command  is  issued.  The  task  thus  receives  the  default  name  TTnn.  The 
best  way  to  avoid  both  problems  is  to  create  an  indirect  command  file  whic*^  removes,  compiles,  task 
builds,  and  installs  the  host  task,  and  to  use  t'.at  command  file  each  and  ever    'me  you  modify  a  task. 

11.3  SPURIOUS  ERRORS 

Under  certain  circumstances,  a  DiS  can  cause  spurious  records  to  be  written  into  the  host's  DECdata- 
w'fy  error  log.  In  such  cases,  the  error  report  task  shows  that  both  ports  of  the  DIS  go  off-line  and  come 
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back  on-line  either  every  10  seccds  or  only  once.  These  events  are  induced  by  the  remote  ACP  when 
the  channel  between  the  host  and  the  remote  ACP  has  been  brokf  n,  or  was  never  initialized.  The  most 
common  causes  are: 


1.  A  DIS  system  image  is  booted  by  DLC  with  the  switch  /-OP  set.  The  remote  ACP  attempts 
to  open  the  channel  to  the  host  without  success,  because  the  host  ACP  was  instructed  (by  the 
/-OP  switch)  not  to  open  the  channel.  This  can  be  avoided  by  simply  not  issuing  the  RUN 
DPM50R  command  in  VMR. 


2.  The  host  system  crashes  while  one  or  more  DIS  systems  are  running;  then  the  host  system  is 
rebooted.  The  ACP  in  each  DIS  system  tries  to  reset  the  channel  to  the  host  oncc.  The  rec- 
ommended method  of  recovering  from  the  latter  state  is  to  include  in  the  system  start-up  file 
"^'.C  command  lines  to  conditionally  boot  (/BI:n)  each  remote  system  which  is  normally 
executing. 

1 1.4  WORD  ALIGNMENT  OF  HOST  MESSAGES 

All  Transmit  and  Receive  buffers  in  the  host  must  start  on  word  boundaries,  that  is,  they  cannot  start 
on  an  odd-byte  boundary.  Message  lengths,  however,  need  not  be  even. 

11.5  STARTING  TASKS  IN  THE  REMOTE 

If  a  user  task  in  a  DIS  attempts  to  establish  a  connection  before  the  remote  ACP  (DPM50R)  has  in- 
itialized its  data  patns  to  the  host  ACP  (DPM50H),  the  connection  requests  complete  with  an  error  re- 
turn of  lE.RSU.  While  this  situation  could  be  handled  by  the  user  task,  a  simple  procedure  to  avoid  the 
problem  is  to  de*"er  execution  of  the  user  task  by  scheduling  execution  via  VMR  in  the  following  manner: 

>RUN  DPM50R 
>RUN  usertask  15s 


1 1.6    DF\^LOPING  DIS  SOFTWARE  UNDER  M-PLUS 

The  VMR  utility  supplied  under  RSX-11  M-PLUS  cannot  be  used  with  RSX-llS  system  images. 
Therefore,  in  order  to  create  system  images  for  down-li  <e  loading  into  a  remote,  you  must  use  the 
RSX-llM  version  of  VMR. 


In  addition,  if  you  want  to  dump  the  memory  of  the  remote  (via  ULD)  and  analyze  it,  you  must  use  the 
RSX-llM  version  of  CDA. 
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3.  FORTRAN  tasks  must  be  rebuilt  (via  TKB),  because  of  changes  in  the  interface  sub- 
routines. 

4.  With  DPM  V3.0,  the  FORTRAN  NIDISC  call  was  synchronous:  control  did  not  return  to 
the  caller  until  the  connection  was  terminated.  This  has  been  corrected  under  DPM  V4.0. 

5.  With  DPM  V3.0,  when  a  task  issued  a  Transmit  before  its  partner  issued  a  Receive,  the 
Transmit  would  complete  with  an  error  code  of  lE.LCK,  thus  requiring  the  transmitting  task 
to  retry.  Under  DPM  V4.0,  the  Transmit  is  pending  until  the  partner  task  issues  its  Receive. 


• 


6.      ST5  has  been  replaced  by  STA,  and  NISTAT  now  offers  a  summary  of  network  status. 


11-3 


This  is  SAMPLE.CMD  - 

ASK  Q  Want  to  learn  what  SAMPLE.CMD  does 

IFT  Q  ; 

IFT  Q  PIP  TI:=SAMPLE,INF 

« 

ASK  Q  Want  to  learn  about  the  remote  task 

IFT  Q  ; 

IFT  Q  PIP  TI:=TANKS. INF 

t 

ASK  Q  Want  to  learn  about  the  host  task 

IFT  Q  ; 

IFT  Q  PIP  TI:=PILOT.INF 

ENABLE  SUBSTITUTION 

ASK  NEHTSK  Need  any  new  task  images 
IFT  NEWTSK  gSAMPLE.FUP 

IFT  .lEWTSK  .SETT  NEWIMG 

IFF  NEWTSK  .ASK  NEWIMG  Need  a  new  remote  system  image 

IFT  NEWIMG   gSAMPLE.MAK 

« 

ASK  DOCLST  Want  to  spool  the  documentation  and  listings 

IFT  DOCLST  PIP  SAMPLE. LST;»/DE/NM 

IFT  DOCLST  PIP  SAMPLE. LST  =  SAMPLE.CMD.FF.  .SAMPLE. INF. FF.  .SAMPLE. FI4P.FF, 

IFT  DOCLST  PIP  SAMPLE. LSr=SAMPLE.MAK.FF. .SAMPLE. DLC/AP 

IFT  DOCLST  PIP  SAMPLE. LST=TANKS.LST. PILOT. LST/AP 

IFT  DOCLST  PIP  SAMPLE. LST/SP 

• 

eSAMPLE.DLC 

ENABLE  SUBSTITUTION 

FINALLY.  INSTALL  AND  START  THE  HOST  TASK. 

TESTFILE  TI: 

SETS  TERM  <FILSPC> 

.IFNINS  PILOT  .GOTO  200 

.IFACT   PILOT  ABO  PILOT 
,100:    .IFACT   PILOT  .GOTO  100 

REM  PILOT 
,200:    INS  PILOT 

REA  PILOT  1  'TERM' 

REA  PILOT  3  'TERM' 

RUN  PILOT  5S 


r 
w 

o 
9 


> 
so 


> 

> 

z 

R 

w 

D 


O 

> 


NJ 


THIS  IS  SAMPLE. INF  - 


SAMPLE.CMD  creates  a  task  (PILOT)  which  runs  in  the  DPM  host,  and  a 
task  (TANKS)  which  runs  in  the  remote  node.   SAMPLE.CMD  down-line  loads 
the  remote  system  image  and  starts  the  host  task.   SAMPLE.CMD  also 
updates  the  STARTUP.CMD  file  to  cope  with  re-booting  the  host,  and 
updates  the  DISBOO.DAT  file  to  automatically  re-boot  the  remote  in  the 
event  of  its  untimely  death  (presumably  due  to 


>ss  of  its  power) 


creating  tasks  which  will 


as 


PILOT  and  TANKS  illustrate  methods  for 

much  as  possible,  survive  failures  in  the  host  and  rem 

and  TANKS  assume  that  any  error  represents  a  failure  i   •  iie  processor 

at  the  other  end  of  the  channel  (a  rather  har?'i  assumption).   When  either 

task  notices  an 

re-establish  the  connection, 


Both  PILOT 


error,  it  will  disconnect  and  (periodically)  try  to 


Conceptually,  TANKS  is  more  important  than  PILOT.   TANKS  will  try  t( 


perform  its  primary  missic 


regardless  of  the  health  of  PILOT  and  the 


DPM  host  -  if  PILOT  is  alive,  TANKS  will  talk  to  it;  if  not,  TANKS  will 
run  stand-alone  until  PILOT  is  re-incarnated. 

PILOT  is  checkpointable  and  uses  the  checkpointable  receive  mechanism  in 
order  to  not  occupy  main  memory  until  TANKS  transmits  a  message  to  it  or 
until  it  is  time  for  PILOT  to  periodically  do  some  calculations. 


> 

I 


THIS  IS  SAMPLE. F4P,  WHICH  COMPILES  AND  TASK-BUILDS  PILOT  (FOR  THE 
HOST)  AND  TANKS  (FOR  THE  REMOTE). 

F4P  PILOT, PILOT/NOSP  =  PILOT/NOTR 
Ftp  TANKS, TANKS/NOSP  =  TANKS/NOT.T 

!;   NEXT,  CREATE  TASK-BUILD  FILES  AND  BUILD  THE  TWO  TASKS. 

.OPEN  PILOT. TKB 
.ENABLE  DATA 

PIL0T/CP/-FP,PILOT/NOSP=PILOT 
r  ".:[  1  ,  1  ]FUPEIS,F4P0TS/LB 
/ 

UNITS=2 
ASG=TI: 1 .SB:2 
// 
.DISABLE  DATA 

.CLOSE 

.OPEN  TANKS. TKB 
.ENABLE  DATA 

TANKS/-MM/-FP.TANKS/NOSP=TAKKS 
LB:[ 1 , 1 JFMPNER.FtPEIS.KHPOTS/LB, 1 1SLIB/LB 
/ 

PAR=GEN: 103000:50500 
UNITS=2 
ASG  =  TI: 1  ,TT:2 
// 
.DISABLE  DATA 

.CLOSE 


TKB  gPILOT.TKB 

TKB  gTANKS.TKB 

PIP  riLOT,TKB:»/DE. TANKS. TKB:« 

PIP  TANKS. •/PU. PILOT. •.SAMPLE.* 


> 

I 


THIS  IS  SAMPLE. MAK,  WHICH  CREATES  A  LOADABLE  SYSTEM  IMAGE  FOR 
THE  REMOTE.   THIS  SYSTEM  IMAGE  IS  UNMAPPED,  AND  ALSO  CONTAINS 
TKTN,  BASMCR,  ISVERR,  AND  DPM50R,  AS  WELL  AS  DRIVERS  FOR 
NI: ,  SV: ,  TT:  ,  AND  IP:  , 

ENABLE  SUBSTITUTION 

.IFNINS  VMR  INS  $VMR 

PIP  SAMPLE.  SYS/NV/ CO/ BLKS:  llt.rLBOaiSI.SOOjRSXI  1S.TSK 

PIP  SAMPLE. STB/ NVrLBO:[ 151, 200]RSX1 IS. STB 

PIP  •.•/NV=LB0:[151,2C0]SVDRV.TSK,SVDRV.STB 

PIP  •.•/NVrLB0:[151,200]NIDRV.TSK.NIDRV.STB 

PIP  •.•/NV=LB0:[151 ,200]TKN.TSK,BASMCR.TSK,DPM5  0R.TSK, ISVERR.TSK 

PIP  TKN. TSK/PU,BASMCR.TSK,DPM5 OR. TSK, ISVERR.TSK 

PIP  SAMPLE.SYS/PU,SAMPLE.STB,SVDRV.«,NIDRV.» 

.OPEN  SAMPLE. VMR 
.ENABLE  DATA 
SAMPLE 

SET  /POOL=H35 

SET  /MAIN  =  SYSPAR:I435:36:TASK 
SET  /MAIN  =  ISVPAR:'473:30:TASK 
SET  /MAIN=NIDPAR:523: 13:TASK 
SET  /MAINrACPPAR: j36: 151 :TASK 
SET  /MAIN=MCRPAR:707: 121 :TASK 
SET  /MAIN=GEN:  1O30:5O«:-T»SK 
SET  /MAINrERRPAR: 1535:«3:TASK 
INS  TKN 

FIX  TKTN  !  NOTE 

INS  BASMCR 
FIX  MCR.  .  . 
INS  ISVERR 
FIX  ISVERR 
LOAD  SV: 
LOAD  NI: 
INS  DPM50R 
FIX  DPM50R 
RUN  DPM50R 
INS  TANKS 

FIX  TANKS  ! 

RUN  TANKS  15S  i 

SET  /BUF=TT0:80. 
•DISABLE  DATA 

.CLOSE 
ASN  SY.-i,B: 
VMR  eSAMPLE.VMR 
ASN  =LB: 
PIP  SAMPLE. VMR:«/DE 


ALL  TASKS  MUST  BE  FIXED. 


!  NOTE  THAT,  SINCE  TANKS  USES 

THE  DPM  NETWORK,  ITS  EXECUTION 
IS  DELAYED  A  FEW  SECONDS. 


THIS  IS  SAMPLE. DLC,  WHICH  DOWN-LINE  LOADS  THE  SAMPLE  SYSTEM 
INTO  THE  SPECIFIED  REMOTE  NODE.   SAMPLE. DLC  ALSO  UPDATES 
LB-[1  2]DISB00,DAT  TO  PREPARE  FOR  AUTOMATIC  REBOOT  IF  THE  REMOTE 
DIES.  AND  UPDATES  LB : [ 1  , 2  ]STARTUP .  CMD  IN  THE  EVENT  THAT  THE  HOST 
IS  RE-BOOTED, 

ENABLE  SUBSTITUTION 

ASKS  [1:3]  NUMBER  Enter  (octal)  DIS  unit  number  (like  376) 

SETN  LENGTH  <STRLEN> 

DLC  SAMPLE/BO: •NUMBES'/NO:SAMPLE/TM:30. 

.WAIT  DLC 
.TESTFILE  TI: 
.SETS  TERM  <FILSPC> 

.ASK  FIRST  Is  this  the  first  time  you  have  used  SB'NUMBER':  for  SAMPLE. SYS 
.IFF  FIRST  .EXIT 

NOW  FIX  DISBOO  DAT  TO  AUTOMATICALLY  RE-BOOT  THE  REMOTE  IF  IT  SUFFERS 
LOSS  OF  POWER.  AND  FIX  STARTUP.CMD  TO  RESTART  THE  HOST  TASK  AND  TO 
RE-BOOT  THE  REMOTE  (IF  NECESSARY)  WHEN  THE  HOST  IS  RE-BOOTED. 


> 

I 


.StiS  li'^C  <UIC> 

OPEN  REBOOT.CMD 
.ENABLi.  DATA 

DLC  SY:  'UIC • SAMPLE/ BI:  • NUMBER ' /NO  :  SAMPLE /TM : 30 . 
.IFNINS  PILOT  INS  SY :  ' U IC ' P I  LOT 
REA  PILOT  1  'TERM' 
REA  PILOT  3  'TERM' 
RUN  PILOT  5S 
.DISABLE  DATA 
.CLOSE 

.IF    LENGTH  =  2   .SETS  NUMBER   "C  +  NUMBER 
.IF  LENGTH  =  1   .SETS  NUMBER  "OC^NUMBER 


!  CONVERT  NUMBER  TO  3  DIGITS, 
!  REQUIRED  FOR  DISBOO. 


.OPEN  DISBOO.DAT 
.ENABLE  DATA 
•NUMBER'  SAMPLE 

DLC  SY:  'UIC 'SAMPLE/BO:  'NUMBER • /NO : SAMPLE/TM : 30 . 
/ 
.DISABLE  DATA 

.CLOSE 

SET  /UIC=[ 1 .2] 

.TESTFILE  LB:DISBOO.DAT 

.IF  <FILERR>  =  1         PIP  LB:=SY: 'UIC'DISBOO.DAT/AP 

.IF  <FILERR>  <>  1         PIP  LB:=SY: 'UIC'DISBOO.DAT 


PIP  LB:STARTUP.CMD  =  SY:  '  U IC  •  REBOOT  .  CMD/ AP 
SET  /UICs'UIC 
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000, 


INCLUDE  'TANKS. INF' 


> 

I 

ON 


0003 

ooou 


0005 
0006 
0007 
0008 
0009 
0010 
001  1 
0012 


0013 
OOIM 

0015 
0016 


0017 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


!  INFORMATION  ON  THIS  PROGRAM 


This  task  runs  in  the  sludge  plant  and  controls  the  liquid  level  in 
three  vats:  the  Red  Vat,  the  Blue  Vat,  and  the  Little  Green  Vat. 
This  task  does  only  regulatory  control  of  the  three  vats;  supervisory 
control  is  maintained  by  the  PILOT  task,  which  runs  in  the  DPM  host. 

Regulatory  control  is  performed  once  per  second  as  follows: 

If  the  level  in  a  vat  is  lOX  above  the  set-point,  turn  the  pump  off. 

If  the  level  in  a  vat  is  10%  below  the  set-point,  turn  the  pump  on; 
-but-  only  if  TANKS  Currently  has  permission  to  use  the  pump. 

Communications  between  this  task  (TANKS)  and  the  master  task  (PILOT) 
is  as  follows: 

Every  15  seconds,  TANKS  gives  PILOT  a  status  report  of  all  vats. 

PILOT  occassional ly  tells  TANKS  to  change  the  set-point  for  a  vat. 

Under  emergency  conditions,  PILOT  tells  TANKS  to  stop  pumping 
into  a  vat;  when  the  emergency  is  cleared  up,  PILOT  will  give 
TANKS  permission  to  start  pumping  into  a  vat  again. 


INCLUDE  'TANKS. VAT- 
IMPLICIT  INTEGER«2  (A-Z) 


!  VAT  CONTROL  DATA  BASE 


DEFINE  THE  DATA  BASE  FOR  CONTROLLING  THE  THREE  VATS. 


PARAMETER  RED= 1 , BLUE=2 . GREEN: 3 

PARAMETER  SETPNT= 1 , MEASUR=2 

PARAMETER  M0T0R=3 

PARAMETER  OFF=0,0N=1 

PARAMETER  CANPMP=U 

PARAMETER  N0:0,YES=1 

PARAMETER  CHANGE=5 

PARAMETER  LEAVE:2 


PARAMETER  RS=  1  3 , BS  =  29  .GS:6 

PARAMETER  NOPUMP=97 

PARAMETER  PUMP0Kr98 

PARAMETER  NEWSET:99 


INTEGER*2  VATDAT(3.5) 


INDICES  FOR 

INDICES  FOR 

INDEX  FOR  P 

VALUES  FO 

INDEX  FOR  P 

VALUES  FO 

INDEX  FOR  C 

VALUES  FO 

OFF  = 

ON  : 

LEAVE  = 

SCALE  FACTO 

COMMAND  TO 

COMMAND  TO 

COMMAND  TO 

VAT  IDENTIF 
CONTROL  VAR 
UMP  MOTOR  ST 
R  PUMP  MOTOR 
ERMISSION  TO 
R  PERMISSION 
HANGING  PUMP 
R  CHANGING  A 

>  TURN  IT  OF 

>  TURN  IT  ON 

>  LEAVE  AS  I 
RS  FOR  MEASU 
DISABLE  PUHP 
ENABLE  PUMPI 
CHANGE  SET-P 


ICATION 

lABLES 

ATE 

STATE 

PUMP 

STATE 
RE: 

F 

S 

REMENTS 

ING 

NG 

OINT 


!  DATA  BASE  FOR  VATS  - 

i    3  VATS.  5  VARIABLES  EACH. 


• 


« 


# 
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> 
I 

^1 


0018 


0019 
0020 
0021 
0022 
0023 
0021 

00?5 
0026 

0027 
0028 
0029 
0030 
0031 
0032 
0033 
003-4 

0035 
0036 
0037 
0038 
0039 
OOflO 
0041 
0042 
0043 


0044 
0045 
0046 
0047 
0048 


INCLUDE  'TANKS.COM' 

DEFINE  THE  DATA  BASE  FOR 
ALSO  DEFINE  SOME  GENERAL 


I  COMMUNICATIONS  DATA  BASE 

COMMUNICATIONS  WITH  OUR  PARTNER  TASK. 
CONSTANTS  AND  VARIABLES. 


parameter 
parameter 
parameter 
parameter 
parameter 
parameti;r 

parameter 
parameter 
parameter 
parameter 
parameter 
parameter 
parameter 
parameter 
parameter 
parameter 


LUNTIsI 
LUNSB  =  :' 
EFTMOsI 
EFC0N=2 
EFDIS=3 
EFDLy=4 

EFRCV=5 

EFXMT=6 

EFRPT=7 

EFLVLsS 

SUCCESrI 

PENDNGrO 

CONAOKrO 

SET  =  2 

CONPNDrl  , 

DISPND=3. 


ACTIVE=2 
C0NDLY=4 


INTECER»2  CONECT(32) 
EQUIVALENCE  ( CONSTA  ,  CONECT ( 1 2) ) 
INTEGER«2  ISBC0N(2 ) . ISBDIS( 2) 
INTECER«2  ISBRCV(2) .ISBXMT(2) 
INTEGER«2  XMTBUF(3.5) 
INTEGE««2  RCVBUF(3) 
EQUIVALENCE  ( WHO , RCVBUF( 1) ) 
EQUIVALENCE  ( WHAT , RCVBUF( 2 ) ) 
EQUIVALENCE  ( VALUE  ,  RCVBUF( 3  )  ) 


DATA  CONECT(  D/LUNSB/ 

DATA  CONECT(2)/3RHOS/ 

DATA  COMECT(3)/3RT   / 

DATA  CONECT(4)/3RPIL/ 

DATA  CONECT(5)/3ROT  / 


! 


LUN  FOR 
LUN  FOR 
EVENT  F 
EVENT  F 
EVENT  F 
EVENT  F 
CALL  NI 
EVENT  F 
EVENT  F 
EVENT  F 
EVENT  F 
CODE  FO 
CODE  FO 
CONNECT 
CODE  RE 
NETWORK 
(DRIVEN 


TERMINA 
NETWORK 
LAG  FOR 
LAG  FOR 
LAG  FOR 
LAG  FOR 
DISC  AND 
LAG  FOR 
LAG  FOR 
LAG  FOR 
LAG  FOR 
R  SUCCES 
R  UNCOMP 
ION  STAT 
TURNED  I 
COMMUNI 
BY  CHAN 


L  I/O 
UNIT 
CHANN 
NICON 
NIDIS 
DELAY 
NEXT 
NIRCV 
NIXMI 
REPOR 
LEVEL 
SFUL 
LETED 
US  = 
F  EVE 
CATIO 
NEL  F 


EL  TIME-OUT 
X  CALL 
C  CALL 

BETWEEN 

CALL  NICONX 
D  CALL 
T  CALL 
TING 

CONTROL 
I/O  DONE 

I/O 
OK 

NT  FLAG  SET 
NS  STATES  - 
AILURES) 


CONNECTION  DATA  BLOCK 

WORD  12  IS  CONNECTION  STATUS 

I/O  STATUS  BLOCKS  FOR  NICONX. 

NIDISC.  NIRCVD,  AND  NIXMIT 

BUFFER  FOR  NIXMIT  CALL 

BUFFER  FOR  NIRCVD  CALL  - 

WHICH  VAT  COMMAND  IS  FOR 
WHAT  THE  COMMAND  IS 
NEW  VALUE  FOR  SET-POINT 

DEFINE  CONNECTION  DATA  BLOCK  - 
WORD  1  IS  LUN  FOR  NETWORK 
WORDS  2.3  =  NAME  OF  HOST  NODE 

=  'HOST   • 
WORDS  4.5  =  NAME  OF  HOST  TASK 

r  'PILOT  ' 
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00«9 
0050 
0051 


C 
C 
C 


FIRST.  INITIALIZE  SOME  THINGS. 

CALL  NICONX  ( CONECT  ,  EFCON  ,  ISBCON  ,  EFTMO)  !  CONNECT  TO  PILOT 
NETSTA  =  CONPND  !  NETWORK  STATE  =  CONNECT  PENDING 

ISBXMT(I)  r  SUCCES  !  MARK  TRANSMIT  NOT  IN  PROGRESS 


> 

I 

00 


0052 
0053 
0054 


0055 
0056 
0057 
0058 
0059 


0060 
0061 
0062 

0063 
0064 

0065 
0066 
0067 
0068 


CALL  INIVAT  (VATDAT) 
CALL  MARK  (EFLVL, 1 ,2) 
CALL  MARK  (EFRPT, 15.2) 


!  INITIALIZE  VAT  CONTROL 

!  TRIGGER  LEVEL  CONTROL  IN  1  SECOND 

!  TRIGGER  REPORTING  IN  15  SECONDS 


C 

c 
c 
c 
c 
c 

10( 


NOW  WE  GO  TO  SLEEP  UNTIL  SOMETHING  HAPPENS.   WHEN  SOMETHING  DOES 
HAPPEN.  FIND  OUT  WHAT  IT  IS  AND  CO  COPE  WITH  THE  EVENT.   AFTER  EACH 
EVENT  IS  DEALT  WITH,  THE  HANDLER  CODE  FOR  THAT  EVENT  RETURNS  HERE 
FOR  FURTHER  HIBERNATION. 


1  10 


CAi.L  WFLOR  (1  .2. 3. 4. 5. 6. 7. 8) 

DO  I  10  F  =  1,8 

CALL  READEF  (F.FLAG) 

IF  (FLAG. EQ. SET)      WHY  =  F 

CALL  CLREF  (WHY) 


!  SLEEP  UNTIL  AN  EVENT  OCCURS,  THEN 

!  PICK  THE  MOST  IMPORTANT  EVENT 

!  IF  THIS  EVENT  HAS  OCCURRED, 

!    THIS  IS  WHY  WE  ARE  AWAKE. 

!  CLEAR  THE  FLAG  FOR  THIS  EVi."". 


NOW  DISPATCH  TO  THE  ROUTINE  WHICH  HANDLES  THIS  EVENT. 


IF 

(WHY 

.EQ 

EFTMO) 

GO 

TO 

1000 

IF 

(WHY 

.EQ 

EFCON) 

GO 

TO 

2000 

IF 

(WHY 

.EQ 

EFDIS> 

GO 

TO 

3000 

IF 

(WHY 

,EQ. 

LFDLY) 

GO 

TO 

'»000 

IF 

(WHY 

.EQ 

EFRCV) 

GO 

TO 

5000 

IF 

(WHY 

EQ. 

EFXMT) 

GO 

TO 

6000 

IF 

(WHY 

EQ. 

EFRPT) 

GO 

TO 

7000 

IF 

(WHY 

EQ. 

EFLVL) 

GO 

TO 

8000 

GO 

TO  9000 

!  CHANNEL  TIMED  OUT 

!  CONNECT  REQUEST  IS  DONE 

!  DISCONNECT  REQUEST  IS  DONE 

!  IT  IS  TIME  TO  RETRY  THE  CONNECT 

!  WE  HAVE  RECEIVED  FROM  PILOT 

!  WE  HAVE  TRANSMITTED  TO  PILOT 

S  IT  IS  TIME  TO  SEND  A  REPORT 

!  IT  IS  TIME  TO  CONTROL  THE  VATS 

I  IT  IS  TIME  TO  SURRENDER 


> 
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0069 


0070 
0071 

0072 
00"  3 

007'* 

0075 


0076 


0077 
0078 
0079 

0080 

0081 

0082 


0083 
OOSt 

0085 

0086 


0087 
0088 


1000 
C 


CONTINUE 


C 
C 
C 

c 


WE  GET  HERE  WHEN  THE  CHANNEL  HAS  TIMED  OUT. 

WE  WILL  BREAK  THE  CONNECTION  AND  CONTINUE  WITH  OUR  MAIN  JOB 

OF  KEEPING  THE  VATS  HAPPY. 


CALL  NIDISC  (CONECT.EFDIS.ISBDIS) 
NETSTA  =  DISPND 


!  DISCONNECT,  AND 

!  MARK  AS  DISCONNECT  PENDING 


1099 


WRITE  (LUNTI,1099) 

FORMAT  (•  CONNECTION  IS  BROKEN, 


2000 
C 
C 
C 


GO  TO  100 
CONTINUE 
WE  GET  HERE  WHEN  THE  CONNECT  REQUEST  IS  DONE 

OR. 


!  PROCESSING  DONE  -  BACK  TO  SLEEP 


IF  (  ISBCON( 1 ) .NE.SUCCES 
CONSTA.NE.CONAOK) 
GO  TO  3000 


!  IF  THE  CONNECT  FAILED, 

I  FOR  WHATEVER  REASON, 

I  GO  MARK  TIME  FOP  30  SECONDS 

!  THEN  TRY  THE  CONWECT  AGAIN. 


AND 


2099 


CALL  NIRCVD  ( CONECT . RCVBUF , 6 . EFRC V , ISBRCV ) 

WRITE  (LUNTI,2099) 

FORMAT  ('  CONNECTION  ESTABLISHED.') 


!  POST  A  RECEIVE 


3000 
C 


NETSTA  =  ACTIVE 
GO  TO  100 
CONTINUE 


!  MARK  HAPPY  NETWORK  STATE. 

I  PROCESSING  DONE  -  BACK  TO  SLEEP 


WE  GET  HERE  WHEN  THE  DISCONNECT  HAS  COMPLETED. 

NOW  WAIT  30  SECONDS,  THEN  TRY  TO  RE-ESTABLISH  THE  CONNECTION. 


CALL  MARK  (EFDLY,30.2) 
NETSTA  =  CONDLY 

GO  TO  100 

CONTINUE 


!  MARK  TIME,  30  SECONDS  FROM  NOW. 
I  AND  MARK  THE  STATE  OF  THE  NETWORK 

I  PROCESSING  DONE  -  BACK  TO  SLEEP 


4000 

C 

C   WE  GET  HERE  WHEN  IT  IS  TIME  TO.  ONCE  AGAIN,  TRY  TO  ESTABLISH  A 

C   CONNECTION  TO  PILOT. 

C 

CALL  NICONX  ( CONECT , EFCON . ISBCON . EFTMO )  !  CONNECT  TO  PILOT 
NETSTA  =  CONPND  I  NETWORK  STATE  =  CONNECT  PENDING 


0089 


GO  TO  100 


!  PROCESSING  DONE  -  BACK  TO  SLEEP 


FORTRAN  IV-PLUS  V02-51 


12:H4:22 


TANKS. FTN 


25-MAR-80 


PAGE  5 


/RO/WR 


0090 


5000 


CONTINUE 


C   WE  GET  HERE  WHEN  A  RECEIVE  FROM  PILOT  HAS  OCCURRED. 


0091 


IF  (NETSTA.NE. ACTIVE) 
GO  TO  100 


!  IF  THE  CHANNEL  IS  DEAD, 

!    IGNORE  RESULTS  OF  RECEIPT, 


0092 


IF  (ISBRCV( 1 ) .EQ.SUCCES) 
GO  TO  5500 


!  IF  RECEIVING  WENT  WELL, 
!    GO  PERFORM  THE  COMMAND. 


C  SOMETHING  HAS  GONE  WRONG,   SINCE  THIS  IS  AN  ERROR-FREE  LINK  AND  THE  TASKS 

C  ARE  ERROR-FREE,  EITHER  THE  HOST  CRASHED  OR  THE  CABLE  BROKE.   IN  ANY 

C  EVENT,  WE  WILL  BREAK  THE  CONNECTION  AND  CONTINUE  WITH  OUR  MAIN  JOB 

C  OF  KEEPING  THE  VATS  HAPPY. 


0093 
009'* 
0095 


CALL  NIDISC  (CONECT,EFDIS,ISBDIS)   !  DISCONNECT,  AND 


NETSTA 


DISPND 


!  MARK  AS  DISCONNECT  PENDING. 


WRITE  (LUNTI,1099) 


0096 


GO  TO  100 


!  PROCESSING  DONE 


BACK  TO  SLEEP 


0097 


5500 


CONTINUE 


WE  GET  HERE  WHEN  WE  HAVE  RECEIVED  A  COMMAND  FROM  PILOT. 
DECODE  AND  EXECUTE  THE  COMMAND. 


NOW 


0098 


IF  (WHAT.EQ.NOPUMP) 

VATDAT(WHO,CANPMP)  =  NO 


!  IF  PILOT  SAYS  WE  CANNOT  PUMP, 


! 


CANCEL  PUMPING  PERMISSION. 


0099 


IF  (WHAT.EQ.PUMPOK) 

VATDAT(WHO,CANPMP)  =  YES 


!  IF  PILOT  SAYS  WE  NOW  CAN  PUMP, 


I 


ALLOW  PUMPING. 


0100 


IF  (WHAT.EQ.NEWSET) 
VATDAT(WHO,SETPNT) 


VALUE 


!  IF  PILOT  HAS  A  NEW  SET-POINT, 
•    USE  IT. 


0101 


CALL  NIRCVD  ( COHECT , RCVBUF , 6 , EFRCV , IS3RC V )   !  POST  A  RECEIVE. 


0102 


GO  TO  100 


I  PROCESSING  DONE 


BACK  TO  SLEEP 
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0103 


6000 


CONTINUE 


C   WE  GET  HERE  WHEN  A  REPORT  TO  PILOT  HAS  BEEN  SENT. 


0101 


IF  (NETSTA.NE. ACTIVE) 
GO  TO  100 


!  IF  THE  CHANNEL  IS  DEAD, 


! 


IGNORE  RESULTS  OF  SENDING, 


0105 


IF  (ISBXMTC 1) .EQ.SUCCES) 
GO  TO  100 


IF  SENDING  WENT  WELL, 
WE  HAVE  NOTHING  TO  DO. 


C  SOMETHING  HAS  GONE  WRONG.   SINCE  THIS  IS  AN  ERROR-FREE  LINK  AND  THE  TASKS 

C  ARE  ERROR-FREE.  EITHER  THE  HOST  CRASHED  OR  THE  CABLE  BROKE.   IN  ANY 

C  EVENT,  WE  WILL  BREAK  THE  CONNECTION  AND  CONTINUE  WITH  OUR  MAIN  JOB 

C  OF  KEEPING  THE  VATS  HAPPY. 


0106 
0107 


CALL  NIDISC  (CONECT,EFDIS.ISBDIS)   !  DISCONNECT.  AND 


NETSTA 


DISPND 


!  MARK  AS  DISCONNECT  PENDING. 


0108 


0109 


01  10 


7000 


WRITE  (LUNTI,1099) 


GO  TO  100 


CALL  MARK  {EFRPT.15,2) 


!  PROCESSING  DONE 


BACK  TO  SLEEP 


!  TRIGGER  REPORTING  IN  15  SECONDS 


C   WE  GET  HERE  WHEN  IT  IS  TIME  TO  SEND  A  REPORT  TO  PILOT, 


01  1  1 


0112 


IF  (NETSTA.NE. ACTIVE) 
GO  TO  100 

IF  (ISBXMT(I).EQ.PENDHG) 
GO  TO  100 


!  IF  THE  CHANNEL  IS  DEAD, 


! 


DO  NOT  USE  IT. 


!  IF  THE  LAST  TRANSMIT  IS  NOT  DOME, 


! 


DO  NOT  SEND  AGAIN, 


0113 
011M 
0115 


01  16 


01  17 


01  18 
01  19 


0120 


7010 


8000 


DO  7010  VAT  =  RED. GREEN 
DO  7010  I  =  1.5 


I  (AND  BLUE) 

1  COPY  ALL  VAT  DATA 


XMTBUF(VAT.I)  =  VATDAT(VAT.I)    !  INTO  TRANSMIT  BUFFER 


CALL  NIXMIT  ( CONECT , XHTBUF , 30 , EFXMT . I SBXMT ) 


!  SEND  IT  UP. 


GO  TO  100 


CALL  MARK  (EFLVL. 1 .2) 
CALL  CONTRL  (VATDAT) 


GO  TO  100 


!  PROCESSING  DONE 


BACK  TO  SLEEP 


!  RE-TRIGGER  LEVEL  CONTROL  IN  1  SECOND 

!  GO  CONTROL  THE  VATS, 

!  REGARDLESS  OF  WHETHER  THE  CHANNEL 

!  IS  ALIVE  OR  NOT. 

I  PROCESSING  DONE  -  BACK  TO  SLEEP 


0121  9000     STOP  'DUE  TO  BAD  CODE' 

0122  END 


I  FIRE  THE  PROGRAMMER  t 


"FORTRAN    IV-PLUS    V02-5  1 
T    NKS.FTN  /RO/WR 

PROGRAM    SECTIONS 


NUMBER 

1 
2 

3 
4 


NAME 

$C0DE1 
$PDATA 
(IDATA 
$VARS 


SIZE 


001  10-4 
000070 
000230 
000236 


290 
28 
76 
79 
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ATTRIBUTES 

H'l  T.CON.LCL 
RO.D.CON.LCL 
RW.D.CON.LCL 
RW.D.CON.LCL 
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VARIABLES 
NAME    TYPE   ADDRESS 


CONSTA  I«2 
VALUE   I»2 


4-00003"* 
4-000004 


NAME 

F 
VAT 


TYPE   ADDRESS 


I»2 

I»2 


4-000224 
4-000232 


NAME 

FLAG 
WHAT 


TYPE   ADDRESS 


I»2 
I»2 


4-000226 
4-000002 


NAME 

I 
WHO 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


I«2 
I»2 


4-000234 
4-000000 


NETSTA  I»2 
WHY     I»2 


4-000222 
4-000230 


rs> 


ARRAYS 


NAME 


TYPE   ADDRESS 


CONECT  I»2 
ISBCON  I»2 
ISBDIS  I»2 
ISBRCV  I»2 
ISBXMT  1*2 
RCVBUF  I«2 
VATDAT  I»2 
XMTBUF  I»2 


4-000006 
4-000144 
4-000150 
4-000154 
4-000160 
4-000000 
4-000106 
4-000164 


SIZE 


000100 
000004 
000004 
000004 
000004 
000006 
000036 
000036 


32 
2 
2 
2 
2 
3 
15 
15 


DIMENSIONS 

(32) 

(2) 

(2) 

(2) 

(2) 

(3) 

(3,5) 

(3.5) 


LABELS 

LABEL 

100 

2099' 

6000 


ADDRESS 

1-000060 
3-000032 
1-000624 


LABEL 

1  10 

3000 

7000 


ADDRESS 

•  • 

1-000374 
1-000716 


LABEL 

1000 
4000 
7010 


ADDRESS 

1-000254 
1-000414 


LABEL 

1099' 

5000 

8000 


ADDRESS 

3-000000 
1-000434 
1-001050 


LABEL 

2000 
5500 
9000 


ADDRESS 

1-00031t 
1-000516 
1-001074 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
CLREF    CONTRL   INIVAT   MARK     NICONX   NiiWSC   HxRCVD   NIXMIT   READEF   WFLOR 


TOTAL  SPACE  ALLOCATED  r  001662 
HO  FPP  INSTRUCTIONS  GENERATED 


473 


# 
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0001  SUBROUTINE  INIVAT  (VATDAT) 
C 

C  INITIALIZE  THE  VAT  DATA  BASE. 
C 

0002  INCLUDE  • TANKS . VAT/NOLIST • 
0016  INTEGER«2  VATDAT(3,5) 
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!  DATA  BASE  FOR  VATS  - 

!    3  VATS,  5  VARIABLES  EACH, 


0017 
0018 
0019 
0020 
0021 
0022 
0023 

0024 


100 


VATDAT(RED,  SETPNT)  =  65»RS 
VATDATCBLUE,  SETPNT)  =  52«BS 
VATDAT(GREEK, SETPNT)  =  I»0*GS 
DO  100  VAT  =  RED, GREEN 

VATDAT(VAT,MEASUR)  =  0 
VATDAT(V/T. MOTOR)  =  OFF 
VATDAT(VAT,CANPMP)  =  YES 

RETURN 


!  RED    VAT  DEFAULT  =  65»  FULL. 

!  BLUE   VAT  DEFAULT  =  52J  FULL. 

!  GREEN  VAT  DEFAULT  r  UOJ  FULL. 

!  FOR  ALL  THREE  VAT3  - 
!      ASSUME  IT  IS  EMPTY. 
!      THE  PUMP  IS  OFF  TO  START 
!      WE  DO  HAVE  PERMISSION 
!      TO  TURN  THE  PUMP  ON. 


> 


0025 


0026 
0027 
0028 


0029 
0030 

0031 


0032 


0033 


ENTRY  CONTRL  (VATDAT) 
C 

C   THIS  SUBROUTINE  CONTROLS  THE  LEVEL  IN  Tf   THREE  VATS. 
C 

CALL  UPDATE  (VATDAT)  !  MEASURE  LEVEL  IN  ALL  THREE  VATS 

DO  200  VAT  s  RED, GREEN  !  (AND  BLUE) 

VATDAT(VAT, CHANGE)  =  LEAVE    !  ASSUME  WE  WILL  NOT  TURN  THE 

!  MOTOR  OFF  OR  ON. 


UPPER  =  (VATDAT(VAT,SETPNT)»11)/10 
LOWER  =  (VATDAT(VAT,SETPHT)«9)/10 


!  10»  ABOVE  SET-POINT 
!  lOt  BELOW  SET-POINT 


IF  (VATDAT(VAT,MEASUR).CE. UPPER 

VATDAK  VAT,  MOTOR  ).EQ.  OH) 
VATDATCVAV, CHANGE)  «  OFF 


.AND. 


IF  (VATDAT(VAT,MEASUR).LE. LOWER   .AND, 
VATDAT(VAT. MOTOR) .EQ. OFF   .AND. 
VATDAT  (V  AT.  CANPMP)  .E(3.YES) 

VATDAT(VAT, CHANGE)  =  ON 

IF  (VATDATCVAT, CANPMP) .EQ. NO   .AND. 

VATDAT (VAT. MOTOR ).EQ. ON) 
VATDAT(VAT, CHANGE)  =  OFF 


0034  200         CONTINUE 

0035  CALL  ACTION  (VATDAT) 

0036  RETURN 

0037  END 


!    TURN    PUMP    MOTORS    OFF    OR    ON 
I       IF    NECESSARY. 


FORTRAN  IV-PLUS  V02-51 
TANKS. FTN  /RO/WR 
PROGRAM  SECTIONS 


NUHBFR 

1 
3 
« 


NAME 

$C0DE1 
IIDATA 
$VARS 


SIZE 


000402 
000016 
000006 


ENTRY  POINTS 
KAME    TYPE   ADDRESS 
CONTRL        1-000102 


129 
7 
3 


12:U4:U1 
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ATTRIBUTES 

RO.I .CON.LCL 
RH.D.CCN.LCL 
RH.D, CON.LCL 


PAGE  9 


NAME    TYPE   ADDRESS     NAME    TYPE   ADDRESS 
INIVAT        1-000000 


NAME    TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


> 
I 

31 


VARIABLES 
NAME    TYPE   ADDRESS 
LOWER   1*2    t-OOOOOM 


NAME    TYPE   ADDRESS     NAME 
UPPER  1*2         i;-000002    VAT 


ARRAYS 
NAME    TYPE   ADDRESS        SIZE         DIMENSIONS 
VATDAT  I»2    F-000002»  000036     15     (3.5) 


LABELS 
LABEL    ADDRESS 
100         •• 


LABEL    ADDRESS 
200         •• 


LABEL 


TYPE   ADDRESS 
I»2    U-OOOOOO 


NAME    TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
ACTION   UPDATE 

TOTAL  SPACE  ALLOCATED  =  000126    139 
NO  FPP  INSTRUCTIONS  GENERATED 
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TANKS. FTN 

0001 

c 
c 
c 
c 

0002 
0016 


/RO/WK 

SUBROUTINE  UPDATE  (VATDAT) 


SIMULATE  A  TANK  THAT  FILLS  UP  IF  THE  PUMP  IS  ON  AND  DRAINS  IF  THE 
PUMP  IS  OFF.   IT  SEEMS  TO  DRAIN  TWICE  AS  FAST  AS  IT  FILLS. 


INCLUDE  'TANKS. VAT/NOLIST' 
INTEGER»2  VATDAT(3,5) 


!  DATA  BASE  FOR  VATS  - 

!    3  VATS,  5  VARIABLES  EACH, 


Ui 


0017 
0018 
0019 

0020 


0021 
0022 
0023 

002U 
0025 

0026 


100 


DO  100  VATsRED. GREEN 
BUMP  =  VAT'VAT  ♦  5 


!  (AND  BLUE) 


IF  (VATDAT(VAT, MOTOR). EQ. ON) 
1     VATDAT(VAT,MEASUR)  =  VATDAT( VAT .MEASUR )  ♦  BUMP 

IF  (VATDAT(VAT, MOTOR) .EQ.OFF^ 
1     VATDAT(VAT, MEASUR)  =  VATDAT ( VAT .MEASUR )  -  BUMP»2 


IF  (VAT. EQ. RED) 
IF  (VAT. EQ. BLUE) 
IF  (VAT. EQ. GREEN) 


FULL  =  RS»100 
FULL  =  BS«100 
FULL  =  GS»100 


VATDAT(VAT. MEASUR)  =  MIN ( VATDAT ( VaT , MEASUR ). FULL ) 
VATDAT(VAT, MEASUR)  =  MAX ( VATDAT ( VAT .MEASUR ). 0 ) 


RETURN 


0027 

0028 
0029 

0030 

0031 

0032 
0033 


ENTRY  ACTION  (VATDAT) 

SIMULATE  TURNING  THE  PUMP  MOTOR  OFF  AND  ON. 

DO  200  VATaRED. GREEN  I  (AND  BLUE) 

IF  (VATDAT(VAT. CHANGE). EQ. ON) 
1   VATDAT(VAT, MOTOR)  =  ON 

IF  (VATDAT(VAT. CHANGE) .EQ. OFF) 
1   VATDAT(VAT. MOTOR)  =  OFF 


200 


CONTINUE 


RETURN 
END 
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NUMBER 

1 
2 
3 
4 

,  5 


NAME 

$C00E1 

$PDATA 

IIDATA 

IVARS 

$TEMPS 


SIZE 


000354 
000004 
000026 
000006 
000002 


118 
2 

1  1 

3 
1 


ATTRIBUTES 

RO.I.CON.LCL 
RO.D.CON.LCL 
RW.D.CON.LCL 
RW.D.CON.LCL 
RW.D.CON.LCL 


ENTRY  POINTS 
NAME    TYPE   ADDRESS     NAME    TYPE   ^DDRESS     NAME 
ACTION        1-000244    UPDATE        1-000000 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


> 

I 


VARIABLES 
NAME    TYPE   ADDRESS     NAME 
BUMP    I»2    4-000002    FULL 


TYPE   ADDRESS     NAME 
I»2    4-000004    VAT 


ARRAYS 
NAME    TYPE   ADDRESS        SIZE         DIMENSIONS 
VATDAT  I»2    F-000002*  000036     15     (3.5) 


TYPE   ADDRESS 
I»2    4-000000 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


LABELS 

LABEL 

ADDRESS 

LABEL 

ADDRESS 

100 

!• 

200 

•  • 

LABEL 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
IMAXO    IMINO 


TOTAL  SPACE  ALLOCATED  :  000416 
NO  FPP  INSTRUCTIONS  GENERATED 
TANKS. TANKS/NOSPsTANKS/NOTR 


135 
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0002 


INCLUDE  'PILOT. INF' 


!  INFORMATION  ON  THIS  PROGRAM 


This  task  runs  in  the  DPM  host  and  communicates  with  TANKS,  the  task 
which  runs  in  the  renote  sludge  plant. 

TANKS  sends  reports  to  PILOT  on  the  status  of  its  vats;  PILOT  displays  them, 

PILOT  periodically  checks  for  an  emergency  condition  affecting  one  of 
the  three  pumps  controlled  by  TANKS;  if  an  emergency  occurs,  PILOT  tells 
TANKS  to  stop  pumping;  if  an  emergency  condition  has  cleared,  PILOT 
tells  TANKS  it  can  resume  pumping. 

PILOT  periodically  does  supervisory  calculations,  through  a  very 
sophisticated  linear  programming  algorithm  -  as  a  result  of  this  L.P. 
algorithm,  PILOT  sometimes  sends  TANKS  a  new  set-point  for  one  of  the  vats. 


> 

I 


0003 
OOOM 


0005 
0006 
0007 
0008 
0009 
0010 
001  1 
0012 


0013 
00114 

0015 
0016 


0017 


0018 


INCLUDE  'TANKS. VAT' 
IMPLICIT  INTEGER«2  (A-Z) 


!  VAT  CONTROL  DATA  BASE 


DEFINE  THE  DATA  BASE  FOR  CONTROLLING  THE  THREE  VATS, 


PARAMETER  RED= 1 , BLUE=2 , GREEMr 3 

PARAMETER  SETPNTr 1 , MEASUR=2 

PARAMETER  M0T0R=3 

PARAMETER  OFF=0,ON=1 

PARAMETER  CANPMP^t 

PARAMETER  NO=0,¥ES=1 

PARAMETER  CHANGE=5 

PARAMETER  LEAVEs2 


PARAMETER  RS= 1 3 . BS=29 . GS=6 

PARAMETER  NOPUMP=97 

PARAMETER  PUMPOK=98 

PARAMETER  NEWSET:99 


INTEGER«2  VATDAT(3,5) 
INTEGER»2  VATCPY(3.5) 


!  INDICES  FOR  VAT  IDE 

!  INDICES  FOR  CONTROL 

!  INDEX  FOR  PUMP  MOTO 

!  VALUES  FOR  PUMP  M 

!  INDEX  FOR  PERMISSIO 

!  VALUES  FOR  PERMIS 

!  INDEX  FOR  CHANGING 

I  VALUES  FOR  CHANGI 

I  OFF  =>  TURN  I 

t  ON  =>  TURN  I 

!  LEAVE  =>  LEAVE 

!  SCALE  FACTORS  FOR  M 


NTIFICATION 

VARIABLES 
R  STATE 
OTOR  STATE 
N  TO  PUMP 
SION 

PUMP  STATE 
NO  ARE: 
T  OFF 
T  ON 
AS  IS 
EASUREMENTS 


!  COMMAND  TO  DISABLE  PUMPING 
!  COMMAND  TO  ENABLE  PUMPING 
!  COMMAND  TO  CHANGE  SET-POINT 


I  DATA  BASE  FOR  VATS  - 

!    3  VATS.  5  VARIABLES  EACH, 

!  A  COPY  OF  VATDAT 
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PILOT 

.FTN         /RO/WR 

0019 

INCLUDE  • 
*       C 

PIL0T.COM' 

! 

COMMUNICATIONS  DATA 

»   C   DEFINE  THE  DATA  BASE  FOR  COMMUNICATIONS  WITH  OUR  PARTNER  TA 

»   C   ALSO  DEFINE  SOME  GENERAL  CONSTANTS  AND 

VARIABLES. 

0020 

•            PARAMETER 

LUNTI=1 

LUN  FOR  TERMINAL  I/C 

0021 

»            PARAMETER 

LUNSB=2 

LUN  FOR  NETWORK  UNIT 

0022 

•            PARAMETER 

EFTM0=1 

EVENT  FLAG  FOR  CHANN 

0023 

»            PARAMETER 

EFC0N:2 

EVENT  FLAG  FOR  NICON 

0024 

»            PARAMETER 

EFDIS=3 

EVENT  FLAG  FOR  NIDIS 

0025 

»            PARAMETER 

EFDLY=4 

EVENT  FLAG  FOR  DELAY 
CALL  NIDISC  AND  NEXT 

0026 

»            PARAMETER 

EFRCV=5 

EVENT  FLAG  FOR  NIRCV 

0027 

•            PARAMETER 

EFRED=6 

EVENT  FLAG  FOR  NIXMI 

0028  ' 

•            PARAMETER 

EFBLU=7 

EVENT  FLAG  FOR  NIXMI 

0029 

»            PARAMETER 

EFGRNrS 

EVENT  FLAG  FOR  NIXMI 

0030  ' 

»            PARAMETER 

EFPER=9 

EVENT  FLAG  FOR  PERIO 
CHECKING  EMERGENCIES 
EXECUTING  L.P.  ALGOR 

0031  ' 

»            PARAMETER 

SUCCESrI 

CODE  FOR  SUCCESSFUL 

0032  ' 

»            PARAMETER 

PENDNG=0 

CODE  FOR  UNCOMPLETED 

0033  ' 

»            PARAMETER 

CONAOKrO 

CONNECTION  STATUS  = 

0034  ' 

•            PARAMETER 

SET  =  2 

CODE  RETURNED  IF  EVE 

0035 

»            PARAMETER 

CONPNDrl ,ACTIVE=2      ! 

NETWORK  COMMUNICATIO 

> 

1 

0036  • 

'            PARAMETER 

DISPND=3.CONDLY=4      ! 

(DRIVEN  BY  CHANNEL  F 

So 

0037  " 

»            INTEGER»2 

CONECT(32) 

! 

CONNECTION  DATA  BLOC 

0038  « 

•            EQUIVALENCE  ( CONSTA . CONECT ( 1 2 ) )  ! 

WORD  12  IS  CONNECT 

0039  * 

»            INTEGER»2 

ISBC0N(2) .ISBDIS(2)    ! 

I/O  STATUS  BLOCKS  FO 

0040  « 

'            INTEGER«2 

ISBRCV(2) 

NIDISC.  NIRCVD.  AND 

0041  « 

»            INTEGER«2 

ISBXMT(2.3) 

RED.  BLUE.  AND  GREEN 

0042  • 

'            INTEGER»2 

XMTBUF(3.3) 

TRANSMIT  BUFFERS  FOR 
RED.  BLUE,  AND  GREEN 
FORMAT  FOR  EACH  BUFF 

0043  • 

'            PARAMETER 

WH0=1 

WHICH  VAT  COMMAND 

0044  « 

PARAMETER 

WHAT=2 

WHAT  THE  COMMAND 

0045  « 

•            PARAMETER 

VALUE=3 

NEW  VALUE  FOR  SET 

0046  • 

INTEGER»2 

XMTEFN(3) 

ARRAY  OF  EVENT  FLAGS 
DEFINE  CONNECTION  DA 

0047  • 

DATA  CONECTd  )/LUNSB/ 

WORD  1  IS  LUN  FOR  N 

0048  • 

DATA  CONECT(2)/3RSAK/ 

WORDS  2,3  =  NAME  OF 

0049  • 

DATA  COHECT(3)/3RPLE/ 

=  'SAMPLE 

0050  • 

DATA  CONECT(4)/3RTAN/ 

WORDS  4,5  :  NAME  OF 

0051  • 

DATA  COHECT(5)/3RKS  / 

=  'TANKS 

0052  • 

DATA  XMTEFN/EFRED.EFBLU.EFGRM/   ! 

XMTEFN(RED)  =  EFRED. 

0053  ■ 

DATA  XMTBUF(WHO,RED) 

/RED/ 

0054  « 

DATA  XNTBUF(WHO.BLUE) 

/BLUE/ 

• 

0055  ■ 
1 

DATA  XMTBUF(WHO,GREF.N) 
C 

• 

/GREEN/ 

• 

• 

BASE 


ASK, 


<EL  TIME-OUT 

(X  CALL 

5C  CALL 

f  BETWEEN 

r  CALL  NICONX 

ID    CALL 

tT  TO  RED 

tT  TO  BLUE 

[T  TO  GREEN 

)DICALLY 

>,  AND  FOR 

IITHM 

I/O  DONE 
)  I/O 

OK 

■NT  FLAG  SET 
)NS  STATES  - 
■AILURES) 


■ION  STATUS 
)R  NICONX, 
NIXMITS  TO 
VATS. 

COMMANDS  TO 
VATS.   THE 
•ER  IS  - 
IS  FOR 
IS 

-POINT 
FOR  NIXMIT'S 

kTA  BLOCK  - 
lETWORK 

REMOTE  NODE 


REMOTE  TASK 


ETC, 
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PILOT. FTN 


/RO/WR 


0056 
0057 

0058 
0059 

0060 


FIRST,  INITIALIZE  SOME  THINGS. 

CALL  NICONX  ( CONECT , EFCON , ISBCON , EFTMO )  !  CONNECT  TO  PILOT 
NETSTA  =  CONPND  !  NETWORK  STATE  =  CONNECT  PENDING 


DO  050  VAT  =  RED, GREEN 
050      ISBXMT(  1  ,VAT)  =  SUCCES 

CALL  MARK  (EFPER,20.2) 


!  FOR  RED,  BLUE,  AND  GREEN  TANKS, 

!  MARK  TRANSMIT  NOT  IN  PROGRESS 

!  TRIGGER  EMERGENCY  AND  L.P.  SCAN 

!  IN  20  SECONDS. 


> 

I 


0061 
0062 
0063 
0064 
0065 


0066 
0067 
0068 

0069 
0070 

0071 
0072 
0073 
007« 

0075 


C 

C 
C 
C 
C 
C 
100 


NOW  WE  GO  "0 
HAPPEN,  FIND 
EVENT  IS  DEA 
FOR  FURTHER 

CALL  WF 
DO  110 
CALL  RE 

110      IF  (FLA 
CALL  CL 

C 

C 

C 


SLEEP  UNTII  SOMETHING  H 
OUT  WHAT  IT  IS  AND  GO  C 

LT  WITH,  THE  HANDLER  COD 

HIBERNATION. 

LOR  ( 1  ,2,3.4,5,6,7,8,9) 
F  =  1,9 
ADEF  (F,FLAG) 
G.EQ.SET)      WHY  =  F 
REF  (WHY) 


APPENS.   WHEN  SOMETHING  DOES 
OPE  WITH  THE  EVENT.   AFTER  EACH 
E  FOR  THAT  EVENT  RETURNS  HERE 


SLEEP  UNTIL  AN  EVENT  OCCURS,  THEN 
PICK  THE  MOST  IMPORTANT  EVENT 
IF  THIS  EVENT  HAS  OCCURRED, 
THIS  IS  WHY  WE  ARE  AWAKE. 
CLEAR  THE  FLAG  FOR  THIS  EVENT. 


NOW  DISPATCH  TO  THE  ROUTINE  WHICH  HANDLES  THIS  EVENT. 


IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 


(WHY, 
(WHY, 
(WHY, 
(WHY, 
(WHY, 
(WHY, 
(WHY, 
(WHY, 
(WHY, 


EQ 

:q 

EQ 
EQ 
EQ 
EQ 
EQ 
EQ 


.EFTMO) 
EFCON) 
EFDIS) 
EFDLY) 
EFRCV) 
EFRED) 
EFBLU) 
EFCRN'/ 


GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 
GO  TO 


EQ.EFPER)   GO  TO 


GO  TO  9000 


1000    !  CHANNEL  TIMED  OUT 

2000    !  CONNECT  REQUEST  IS  DONE 

3000    !  DISCONNECT  REQUEST  IS  DONE 

4000    !  IT  IS  TIME  TO  RETRY  THE  CONNECT 

5000    !  WE  HAVE  RECEIVED  FROM  TANKS 

6000    !  WE  HAVE  TRANSMITTED  TO  RED  TANK 

6100    !  WE  HAVE  TRANSMITTED  TO  BLUE  TANK 

6200    !  WE  HAVE  TRANSMITTED  TO  GREEN  TANK 

7000    !  TIME  TO  CHECK  EMERGENCIES 

!  AND  DO  L.P.  STUFF 

I  IT  IS  TIME  TO  SURRENDER 
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0076 

1C 

c 
c 
c 
c 
c 

00 

CONTINUE 

WE 
WE 
DUE 

GET  HERE  WHEN  THE  CHANNEL  HAS  TIMED  OUT. 

WILL  BREAK  THE  CONNECTION  AND  CARRY  ON.   IF  THE  REMOTE  HAS 
.  TO  TRANSIENT  POWER  OUTAGE  OR  WHATEVER,  AUTOMATIC  RE-BOOT 

DIED. 
WILL  FIX  IT. 

0077 
0078 

CALL  NIDISC  (CONECT.EFDIS 
NETSTA  =  DISPND 

ISBDIS)    !  DISCONNECT,  AND 

!  MARK  AS  DISCONNECT 

PENDING. 

0079 
0080 

1099 

WRITE  (LUNTI.1099) 

FORMAT  (•  CONNECTION  IS  BROKEN.') 

0081 

GO  TO  100 

!  PROCESSING 

DONE  -  BACK 

TO  SLEEP 

0082 

2000 
r 

CONTINUE 

C 

c 

WE 

GET  HERE  WHEN  THE  CONNECT  REQUEST  IS  DONE. 

0083 

1 
2 

IF  ( ISBCON( 1 ) .NE.SUCCES  .OR.     !  IF  THE  CONNECT  FAILED. 
CONSTA.NE.CONAOK)             !    FOR  WHATEVER  REASON. 
GO  TO  3000                      !    GO  MARK  TIME  FOR  30 

!    THEN  TRY  THE  CONNECT 

SECONDS.  AND 
AGAIN. 

> 

0081 
0085 
0086 

0087 

2099 

CALL  NIRCVC  ( CONECT  .  VATDAT . 30 . EFRC V , ISBRCV ) 

WRITE  (LUNTI.2099) 

FORMAT  (•  CONNECTION  ESTABLISHED.') 

NETSTA  =  ACTIVE                   !  MARK  HAPPY 

!  POST  A  RECEIVE. 
NETWORK  STATE. 

0088 

GO  TO  100 

!  PROCESSING 

DONE  -  BACK 

TO  SLEEP 

0089 

3000 

r 

CONTINUE 

c 
c 
c 

WE 
NOW 

GET  HERE  WHEN  THE  DISCONNECT  HAS  COMPLETED. 
WAIT  30  SECONDS,  THEN  TRY  TO  RE-ESTABLISH  THE 

CONNECTION. 

0090 
0091 

CALL  MARK  (EFDLY.30,2) 
NETSTA  =  CONDLY 

t  MARK  TIME. 
!  AND  MARK  T 

30  SECONDS 
E  STATE  OF 

FROM  NOW. 
THE  NETWORK. 

0092 

GO  TO  100 

!  PROCESSING 

DONE  -  BACK 

TO  SLEEP 

0093 

4000 
r 

CONTINUE 

V 

C 
C 

c 

WE  GET  HERE  WHEN  IT  IS  TIME  TO. 
CONNECTION  TO  TANKS. 

ONCE  AGAIN.  TRY  TO  ESTABLISH 

A 

009<t 
0095 

CALL  NICONX  ( CONECT , EFCON , 
NETSTA  s  CONPND 

ISBCON.EFTMO)  !  CONNECT  TO  TANKS 

!  NETWORK  STATE  s  CONNECT  PENDING 

0096 

CO  TO  100 

!  PROCESSING 

DONE  -  BACK 

TO  SLEEP 

• 

• 

« 

• 

• 

• 

• 

- 

# 


> 

I 
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0097 

0098 
0099 


0100 
0101 
0102 

0103 
010U 


0105 


0106 
0107 
0108 
0109 


5000 
C 
C 
C 


CONTINUE 
WE  GET  HERE  WHEN  A  RECEIVE  FROH  TANKS  HAS  OCCURRED. 


IF  (NETSTA.NE. ACTIVE) 
1     GO  TO  100 

IF  ( ISBRCVC 1 ) .EQ.SUCCES) 
1     GO  TO  5500 


i  IF  THE  CHANNEL  IS  DEAD. 

I    IGNORE  RESULTS  OF  RECEIPT. 

!  IF  RECEIVING  WENT  WELL, 
!    GO  DISPLAY  THE  REPORT. 


SOMETHING  HAS  GONE  WRONG.   SINCE  THIS  IS  AN  ERROR-FREE  LINK  AND  THE  TASKS 
ARE  ERROR-FREE.  EITHER  THE  REMOTE  CRASHED  OR  THE  CABLE  BROKE.   IN  ANY 
EVENT.  WE  WILL  BREAK  THE  CONNECTION  AND  CONTINUE. 


CALL  NIDISC  (CONECT.EFDIS.ISBDIS) 
NETSTA  =  DISPND 
WRITE  (LUNTI.1099) 


!  DISCONNECT.  AND 

!  MARK  AS  DISCONNECT  PENDING, 


5500 
C 


GO  TO  100 
CONTINUE 


I  PROCESSING  DONE  -  BACK  TO  SLEEP 


C 
C 
C 


WE  GET  HERE  WHEN  WE  HAVE  RECEIVED  A  REPORT, 
DECODE  AND  DISPLAY  IT. 


FROM  TANKS.   NOW 


CALL  DISPLA  ( VATDAT . LUNTI ) 


!  DISPLAY  THE  VAT  REPORT 


NOTE  THAT.  SINCE  THE  REPORT  IS  PREPARED  FROM  VATDAT  WHILE  THERE  IS  NO 
RECEIVE  PENDING  (INTO  VATDAT).  THIS  IMAGE  OF  THE  VAT  DATA  IS  STATIC. 
IF  NIRCVC  WERE  CALLED  BEFORE  CALLING  DISPLA.  IT  WOULD  BE  POSSIBLE  FOR 
THE  DATA  TO  BE  CHANGING  (AND.  IN  FACT,  TEMPORARILY  INVALID)  DURING 
PREPARATION  OF  THE  REPORT. 


5700 


DO  5700  I  r  1.3 

DO  5700  J  =  1  .5 

VATCPY(I.J)  =  VATDAT(I.J)         !  COPY  VAT  DATA  WHILE  IT  IS  STATIC, 

CALL  NIRCVC  ( CONECT . VATDAT . 30 . EFRCV . ISBRCV )   I  POST  A  RECEIVE. 


01  10 


GO  TO  100 


!  PRCv^ESSING  DONE 


BACK  TO  SLEEP 
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0111     6000     IF  (ISBXMT(I.RED) .EQ.SUCCES) 

1     GO  TO  100 
01  12  GO  TO  6500 


!  IF  SEND  TO  RED  TANK  IS  OK, 


! 


ALL  DONE  -  GO  BACK  TO  SLEEP; 


!  ELSE  -  COPE  WITH  A  PROBLEM. 


01  13 


01  114 


01  15 


01  16 


6100 


6200 


6500 


IF  (ISBXMTCI, BLUE). EQ.SUCCES)    !  IF  SEND  TO  BLUE  TANK  IS  OK, 


GO  TO  100 
GO  TO  6500 


!    ALL  DONE  -  GO  BACK  TO  SLEEP; 
!  ELSE  -  COPE  WITH  A  PROBLEM. 


IF  (ISBXMTCI. GREEN). EQ.SUCCES)   !  IF  SEND  TO  GREEN  TANK  IS  OK, 


GO  TO  100 


CONTINUE 


ALL  DONE  -  GO  BACK  TO  SLEEP 


C   WE  GET  HERE  WHEN  A  COMMAND  TO  TANKS  HAS  BEEN  SENT.  AND  THERE  IS  SOME 


FLAVOR  OF  DIFFICULTY, 


COPE. 


01 17 


IF  (NETSTA.NE. ACTIVE) 
GO  TO  100 


!  IF  THE  CHANNEL  IS  DEAD. 


! 


IGNORE  RESULTS  OF  SENDING, 


C   SOMETHING  HAS  GONE  WRONG.   SINCE  THIS  IS  AN  ERROR-FREE  LINK  AND  THE  TASKS 
C   ARE  ERROR-FREE,  EITHER  THE  REMOTE  CRASHED  OR  THE  CABLE  BROKE.   IN  ANY 
C   EVENT.  WE  WILL  BREAK  THE  CONNECTION  AND  CONTINUE. 


0118 
0119 
0120 


CALL  NIDISC  (CONECT.EFDIS.ISBDIS)   !  DISCONNECT.  AND 


NETSTA  :  DISPND 
WRITE  (LUNTI.1099) 


I  MARK  AS  DISCONNECT  PENDING. 


01  n 


GO  TO  100 


!  PROCESSING  DONE  -  BACK  TO  SLEEP 


> 

I 
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0122 


0123 
0124 

0125 
0126 

0127 
0128 

0129 

0130 
0131 


7000 
C 


CONTINUE 


WE  GET  HERE  WHEN  IT  IS  TIME  TO  CHECK  FOR  EMERGENCY  CONDITIONS,  AND 

TO  EXECUTE  THE  LINEAR  PROGRAMMING  ALGORITHM  TO  SELECT  A  NEW  SET-POINT, 


CALL  MARK  (EFPER.20,2) 


IF  (NETSTA.NE. ACTIVE) 
GO  TO  100 


CALL  EHERGY  (VATCPY) 
DO  7200  VAT  =  RED, GREEN 


!  RE-TRIGGER  EMERGENCE  AND  L.P. 
i  IN  20  SECONDS. 


SCAN 


!  IF  THE  CHANNEL  IS  DEAD. 

!  WE  CANNOT  TALK  TO  TANKS,  SO  WE 

!  MIGHT  AS  WELL  GO  BACK  TO  SLEEP. 

I  SEE  IF  THERE  IS  AN  EMERGENCY 

!  (AND  BLUE) 


IF  (VATCPY(VAT, CHANGE). EQ. LEAVE)   GO  TO  7200 

IF  (ISBXMTd ,VAT) .EQ.PENDNG)  !  IF  A  TRANSMIT  IS  STILL  PENDING, 
GO  TO  7200  !    DO  NOT  START  ANOTHER  ONE  NOW. 


1 


XMTBUF(WHAT,VAT)  = 
VATCPY(VAT, CHANGE) 


I  COPY  COMMAND  (EITHER  ENABLE  OR 
i  DISABLE  PUMPING) 


7200 


CALL  NIXMIT(C0NECT,XMTBUF(1 ,VAT) , H , XMTEFN ( VAT ) , ISBXMT ( 1 . VAT )  ) 
CONTINUE 


0132  CALL  LINEAR  (VATCPY) 

0133  DO  7500  VAT  a  RED. GREEN  I  (AND  BLUE) 
0131  IF  (VATCPY(VAT, CHANGE) .EQ. LEAVE)   GO  TO  7500 

0135  IF  (ISBXMTd , VAT). EQ.PENDNG)  !  IF  A  TRANSMIT  IS  STILL  PENDING, 
1     GO  TO  7500  I    DO  NOT  START  ANOTHER  ONE  NOW. 

0136  XMTBUF(WHAT,VAT)  =  NEWSET     !  COMMAND  =  NEW  SET-POINT 

0137  XMTBUF(VALUE,VAT)  =  VATCPY( VAT . SETPNT  ) 

0138  CALL  NIXMIT(C0NECT,XMTBUF(1.VAT) , 6 . XMTEFN ( VAT ) .ISBXMTd ,VAT) ) 

0139  7500     CONTINUE 

0140  GO  TO  100  !  PROCESSING  DONE  ■-  BACK  TO  SLEEP 


0141 
0142 


9000 


STOP 
END 


'DUE  TO  BAD  CODE' 


!  FIRE  THE  PROGRAMMER  ! 
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PROGRAM  SRCTIONS 


NUMBER 

1 

i. 

3 


NAME 

$C0DE1 
$PDATA 
IIOATA 
IVARS 


SIZE 


0013'»2 
000074 
0002'<1 
000272 


369 
30 
82 
93 
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VARIABLES 

NAME    TYPE 

CONSTA  I«2 
NETSTA  1»2 


ADDRESS 

4-000026 
4-000254 


NAME 

F 
VAT 


TYPE   ADDRESS 


NAME 


I«2    4-000260    FLAG 
I»2    4-000256    WHY 


TYPE   ADDRESS 


I»2 
I»2 


4-000262 
4-000264 


NAME    TYPE   ADDRESS 
I       I«2    4-000266 


NAME    TYPE   ADDRESS 
J       1*2         4-000270 


> 

I 

4k 


ARRAYS 


NAME 


TYPE   ADDRESS 


CONECT  I«2 
ISBCON  I»2 
ISBDIS  I»2 
ISBRCV  I»2 
ISBXMT  I»2 
VATCPY  1*2 
VATDAT  I»2 
XMTBUF  I»2 
XMTEFN  I«2 


4-000000 
4-000174 
4-000200 
4-000204 
4-000210 
4-000136 
4-000100 
4-000224 
4-000246 


SIZE 


000100 
000004 
000004 
000004 
000014 
000036 
000036 
000022 
000006 


32 
2 
2 
2 
6 
15 
15 
9 
3 


DIMENSIONS 

(32) 

(2) 

(2) 

(2) 

(2.3) 

(3.5) 

(3.5) 

(3.3) 

(3) 


LABELS 

LABEL 

50 

2u00 
5500 
6500 


ADDRESS 

•  I 

1-000334 
1-000536 
1-000712 


LABEL 

100 
2099* 
5700 
7000 


ADDRESS 

1-000066 

3-000032 

•  • 

1-000770 


LABEL 

1  10 
3000 
6000 
7200 


ADDRESS 

•  • 

1-000414 
1-000642 
1-001142 


LABEL 

ADDRESS 

1000 

1-000274 

4000 

1-000434 

6100 

1-000660 

7500 

1-001312 

LABEL 

1099' 
5000 
6200 
9000 


ADDRESS 

3-000000 
1-000454 
1-000676 
1-001332 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
CLREF    DISPLA   ENERGY   LINEAR   HARK 


NICONX   NIDISC   NIRCVC   NIXMIT   READEF   WFLOR 


TOTAL  SPACE  ALLOCATED  =  002174    571 
NO  FPP  INSTRUCTIONS  GENERATED 


• 
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0002 
0016 

0017 
0018 
0019 

0020 
0021 


/RO/WR 

SUBROUTINE  DISPLA  ( V ATDAT , LUNTI) 

DISPLA  IS  CALLED  BY  PILOT  TO  DISPLAY  THE  VAT  REPORT, 


INCLUDE  'TANKS. VAT/NOLIST' 
INTEGER»2  VATDAT(3,5) 

BYTE  TIMBUF(8) ,DATBUF(9) 
IMTEGER»«  VATNAM(2).  NAMES(2.3) 
INTEGER«2  FACTORO) 


!  DATA  BASE  FOR  VATS  - 

!    3  VATS,  5  VARIABLES  EACH. 


DATA  FACTOR/RS.BS.GS/ 
DATA  NAMES/'     ' , '  RED' 


I  SCALE  FACTORS  FOR  EACH  VAT 
'.'BLUE'.'    G'.'REEN'/ 


> 

I 


C022 
0023 
002U 
0025 

0026 

0027 
0028 

0029 
0030 

0031 

0032 
0033 

0034 


0035 


0036 


99 


CALL  TIME  (TIMBUF) 

CALL  DATE  (DATBUF) 

WRITE  (LUNTI. 99)  TIMBUF . DATBUF 

FORMAT  CO  -  Vat  report  at  ',8A1,'  on  ',9A1.'  -  ') 


DO  200  VAT  :  RED, GREEN 


VATNAMd  ) 
VATNAM(2) 


NAMES( 1,VAT) 
NAMES(2,VAT) 


SCALE  =  FACTOR(VAT) 


!  (AND  BLUE) 

!  COPY  THE  NAME  OF  THIS  VAT, 

!  BOTH  HALVES  OF  IT. 

!  GET  THIS  VAT'S  SCALE  FACTOR. 


SPCT  =  VATDAT(VAT,SETPNT)/SCALE 


!  GET  SET-POINT  IN  t 


MPCT  =  (VATDAT(VAT.MEASUR)»10)/SCALE  !  GET  CURRENT  LEVEL  IN 

!  TENTHS  OF  A  %,    AND  THEN 

MPCTI  =  MPCT/10  !  CONVERT  TO  %    AND  TO 

MPCTF  >  MPCT  -  lO'MPCTI  !  TENTHS  (FRACTIONAL  PftBT) 

IF  (VATDAT(VAT, MOTOR) .EQ. ON   .AND. 
V ATDAT (V AT, CANPMP) .EQ.YES) 
WRITE  (LUNTI, 98)  VATNAM , SPCT , MPCTI .MPCTF 

IF  (VATDAT(¥AT, MOTOR) .EQ. OFF   .AND. 
V ATDAT (VAT, CANPMP) .EQ.YES) 
WRITE  (LUNTI, 97)  VATNAM . SPCT , MPCTI , MPCTF 

IF  (VATDAT(yAT. CANPMP) .EQ. NO) 

WRITE  (LUNTI, 96)  VATNAM , SPCT . MPCTI , MPCTF 


0037  200         CONTINUE 

0038  RETURN 

0039  98  FORMAT  (IX. 2AM.'  Vat:  Set-Point  s',1I3.'t,  Vat  is' 

1  ,  1IM,  ' . ' . Ill . '%  Full.   Pump  Is  ON.') 

0040  97  FORMAT  (1X,2A4.'  Vat:  Set-Point  s',1I3.'J.  Vat  Is' 

1  , 1I«,  ' . • . Ill . ' J  Full.   Pump  is  OFF.') 

0041  96  FORMAT  (1X.2Ai».'  Vat:  Set-Point  =',113. 'J.  Vat  is' 

1  , 114, ' . • , in  , 'I  Full.   Pumping  DISABLED.') 

0042  END 
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NUMBER 

1 
3 
14 


NANE 

$C0DE1 
(IDATA 
$VARS 


SIZE 

000576  191 

000»»3t  142 

000104  34 
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ENTRY  POINTS 
NAME    TYPE   ADDRESS 
DISPLA        1-000000 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


VARIABLES 
NAME    TYPE   ADDRESS 


NAME 


LUNTI   I«2 
SPCT    I»2 


F-000004*   MPCT 
4-000074    VAT 


TYPE   ADDRESS 


I»2 
I»2 


4-000076 
4-000070 


NAME    TYPE   ADDRESS 
MPCTF   I«2    4-000102 


NAME    TYPE   ADDRESS 
MPCTI   I»2    4-000100 


NAME    TYPE   ADDRESS 
SCALE   I»2    4-000072 


OS 


ARRAYS 
NAME    TYPE   ADDRESS 


SIZE 


DATBUF  L»1 

FACTOR  I»2 

NAMES  1*4 

TIMBUF  L»1 

VATDAT  I»2 

VATNAM  1*4 


4-000010 

4-000062 

4-000032 

4-000000 

F-000002* 

4-000022 


00001 1 
000006 
000030 
000010 
000036 
000010 


4 

3 
12 

i< 

15 

4 


DIMENSIONS 

(9) 

(3) 

(2.3) 

(8) 

(3.5) 

(2) 


LABELS 
LABEL    ADDRESS 
96'      3-000252 


LABEL    ADDRESS 
97'      3-000150 


LABEL    ADDRESS 
98'      3-000046 


LABEL 
99' 


ADDRESS 
3-000000 


LABEL 
200 


ADDRESS 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
DATE     TIME 

TOTAL  SPACE  ALLOCATED  =  001336    367 
NO  FPP  INSTRUCTIONS  GENERATED 
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C 
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0002 

0016 

0017 
0018 
0019 
0020 
0021 


/RO/WR 

SUBROUTIME  EMERGY  (VATDAT) 


THIS  SUBROUTINE  DETERMINES  IF  THERE  IS  AN  EMERGENCY  CONDITION. 
THIS  SUBROUTINE  IS  NOT  EXTREMELY  BRIGHT. 

INCLUDE  'TANKS, VAT/NOLIST' 

INTEGER«2  VATDAT(3.5)  !  DATA  BASE  FOR  VATS  - 

!    3  VATS.  5  VARIABLES  EACH. 
BYTE  TIHBUF(8) . ZERO.THREE , BEGEHE ( 3) . ENDEME( 3  ) 
L0GICAL*2  S0MEME,VATEME(3) 
DATA  ZERO.THREE/'O'  .  '3'/ 

DATA  BEGEME/'O'  .' 1 •  ,'2'/  !  RED  EMERGENCIES  LAST  5  MINUTES; 

DATA  ENDEME/'5'  .  •«•  .' j'/  !  BLUE  -  3  MINS;  GREEN  -  1  MINUTE. 


0022 
0023 

0021 
0025 
0026 

0027 

0028 

0029 

0030 
0031 


CALL    TIME    (TIMBUF) 
SOMEriE 


100 


TIMBUF(«) .EQ.ZERO  .OR, 
TIMBUF(«) .EQ. THREE 


00  100  VAT  :  RED. GREEN 
VATDATCVAT, CHANGE)  =  LEAVE 

VATEME'VAT)  s  SOMEME  .AND. 

1  TINBUFi5).GE.BEGENE(VAi)  .AND. 

2  TINBUF(5).LT.ENDENE(VAT) 

IF  (VATENE(VAT)  .AND. 

1  VmTDAT(VAT.CANPNP).EQ.YES) 

2  VATDAT(VAT, CHANGE)  =  NOPUNP 

IF  ( .not.vateme(vat)  .and. 

1  VATDAT(VAT,CANPMP).EQ.NO) 

2  VATDAT(VAT. CHANGE)  :  PUMPOK 

CONTINUE 

RETURN 
END 


!  EMERGENCIES  ONLY  HAPPEN  ON  THE  HOUR 

!  AND  ON  THE  HALF-HOUR. 

!  (AND  BLUE) 

!  DEFAULT  z    NO  NEED  TO  TELL  TANKS 

I  THIS  VAT  HAS  AN  EMERGENCY  IF 

!  THE  RIGHT  TIME  HAS  BEGUN  AND 

!  IS  NOT  YET  OVER. 

t  IF  THEIE  IS  AN  EMERGENCY  AND 

t  TANKS  DOESN'T  KNOW  IT. 

!  TELL  TANKS  ABOUT  IT. 

!  IF  THE  EMERGENCY  IS  OVER  AND 

!  TANKS  DOESN'T  KNOW  THAT. 

!  TELL  TANKS  ABOUT  THAT. 


FORTRAN  IV-PLUS  V02~5 1 
PILOT. FTN  /RO/WR 
PROGRAH  SECTIONS 


NUMBER 
1 

3 

1 


NAME 

$C0DE1 
IIDATA 
$VARS 


SIZE 


000266 
000016 
000032 


ENTRY  POINTS 
NAME    TYPE   ADDRESS 
EMERGY        1-000000 


91 

7 


NAME 


UrOTrOS 


25-MAR-80 


ATTRIBUTES 

RO.I.CON.LCL 
RW.D.CGN.LCL 
RW.O.CON.LCL 


TYPE   ADDRESS 


NAME 
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TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


VARIABLES 
NAME    TYPE   ADDRESS     NAME    TYPE   ADDRESS 
SOMEME  L»2    U-000020    THREE   L«1    4-000011 

ARRAYS 


NAME 
VAT 


NAME 

TYPE 

ADDRESS 

SIZF 

DIMENSIONS 

BEGEME 

L«1 

4-000012 

000003 

1 

(3) 

ENDEME 

L«1 

4-000015 

ooooos 

1 

(3) 

TIMBUF 

L»1 

4-000000 

000010 

4 

(8) 

VATDAT 

I«2 

F-000002» 

000036 

15 

(3.5) 

VATEME 

L»2 

4-000022 

000006 

3 

(3) 

TYPE   ADDRESS     NAME    TYPE   ADDRESS 
I»2    4-000030    ZERO    L»1    4-000010 


NAME 


TYPE   ADDRESS 


LABELS 
LABEL    ADDRESS 
100         •• 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


FUNCTIONS  AND  SUBROUTINES  REFERENCED 
TINE 

TOTAL  SPACE  ALLOCATED  r  000336    111 
NO  FPP  INSTRUCTIONS  GENERATED 


FORTRAN  IV-PLUS  V02-51 
PILOT. FTM        /RO/WR 


lUiOT: 10 


25-HAR-80 
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0001 


0002 
0016 

00  i  7 
0018 
0019 
0020 
0021 
0022 
0023 
00211 
0025 


SUBROUTINE  LINEAR  (VATDAT) 

THIS  IS  THE  PROMISED  INCREDIBLY  SOP 
ALGORITHM  MHICH  SELECTS  NEW  SET-POI 
DISAPPOINTED, 

INCLUDE  'TANKS. VAT/NOLIST' 
INTEGER»2  VATDAT(3,5) 

INTEGER»2  HILIMC 3) .L0LIM( 3) , IN 

L0GICAL»2  UP(3) 

INTEGER«2  LPVARY 

DATA  LPVARY/0/ 

DATA  UP/. TRUE. , .FALSE. , .TRUE./ 

DATA  HILIM/85.62,M8/ 

DATA  L0LIM/45,U2,32/ 

DATA  INCRM/1,2,3/ 

DATA  SCALE/RS.BS.GS/ 


HISTICATED  LINEAR  PROGRAMMING 
NTS.   I  HOPE  YOU  ARE  NOT  TERRIBLY 


!  DATA  BASE  FOR  VATS  - 
!    3  VATS.  5  VARIABLES  EACH. 
CRM(3),SCALE(3) 


I  L.P.  VARIABLE 

!  ALWAYS  STARTS  AT  ZERO. 

!  TRUE  IF  MOVING  SET-POINT  UP. 

!  HI  LIMITS  (IN  %)    FOR  SET-POINT. 

I  LO  LIMITS  (IN  J)  FOR  SET-POINT. 

!  SIZE  (IN  %)    OF  SET-POINT  CHANGE. 

!  SCALE  FACTORS  FOR  SET-POINTS. 


> 

I 


0026 
0027 
0028 
0029 

0030 

0031 
0032 
0033 
003« 

0035 
0036 

0037 


0038 
0039 

0040 

0041 
0042 


200 


lPVARY  =  LPVARY  ♦  1 
DO  200  VAT  s  RED. GREEN 

VATDAT(VAT, CHANGE)  =  LEAVE 


1 


!  BUMP  THE  L.P.  VARIABLE. 

!  (AND  BLUE) 

•  DEFAULT  =  DO  NOT  CHANGE  SET-POINT, 


IF  (IAND(VAT, LPVARY). NE. VAT)  !  ONLY  CHANGE    RED  EVERY  SECOND  PASS 

GO  TO  200  !  ONLY  CHANGE   BLUE  EVERY  FOURTH  PASS 

I  ONLY  CHANGE  GREEN  EVERY  EIGHTH  PASS 

VATDAT(VAT, CHANGE)  =  ON       !  THIS  PASS  WE  CHANGE  THIS  ONE. 


MAXSP  s  HILIM(VAT)  •  SCALE(VAT) 
MINSP  =  LOLIM(VAT)  •  SCALE(VAT) 
CHGSP  =  INCRM(VAT)  •  SCALE(VAT) 
OLDSP  a  VATDAT(VAT,SETPNT) 


i  MAXIMUM  ALLOWED  SET-POINT 

I  MINIMUM  ALLOWED  SET-POINT 

!  CHANGE  TO  SET-POINT 

I  LAST  VALUE  FOR  SET-POINT 


NEWSP  s  OLDSP  -  CHGSP  I  NEW  SET-POINT  :  OLD  (>  OR 

IF  (UP(VAT))   NEWSP  s  OLDSP  >  CHGSP   I  CHANGE  TO  SET-POINT 


OUTSID  s  (UP(VAT)  .AND.  NEWSP . GT . MAXSP) 
( .NOT.UP(VAT)  .AND.  NEWSP . LT .MINSP ) 


•  OR, 


IF  ( .NOT. OUTSID)   VATDAT ( VAT , SETPNT )  =  NEWSP 
IF  (OUTSID)   UP(VAT)  =  .NOT.UP(VAT) 

CONTINUE 


!  IF  NEW  IS  OK. 

!     CHANGE  IT;  ELSE  • 

I     CHANGE  DIRECTION. 


RETURN 
END 


FORTRAN  IV-PLUS  V02-51 
PILOT. FTH  /RO/WR 
PROGRAM  SECTIONS 


NUMBER 

1 
3 
4 


NAME 

$C0DE1 
IIDATA 
IVARS 


SIZE 


000310 
000012 
000056 


ENTRY  POINTS 
NAME    TYPE   ADDRESS 
LINEAR        1-000000 


100 

5 

23 


NAME 


14:07: 10 


25-MAR-80 


ATTRIBUTES 

RO.I.CON.LCL 
RW.D.CON.LCL 
RW.D.CON.LCL 


TYPE   ADDRESS 


NAME 
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TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


NAME 


TYPE   ADDRESS 


VARIABLES 

NAME 

TYPE 

ADDRESS 

NAME    TYPE 

ADDRESS     NAME 

TYPE 

ADDRESS 

NAME 

CHGSP 
OLDSP 

I»2 
I»2 

4-000046 
4-000050 

LPVARY  I»2 
OUTSID  I»2 

4-000036    MAXSP 
4-000054    VAT 

I»2 
I»2 

4-000042 
4-000040 

MINSP 

i 

ARRAYS 

^ 

NAME 

TYPE 

ADDRESS 

SIZE 

DIMENSIONS 

HILIM 

INCRM 

LOLIM 

SCALE 

UP 

VATDAT 

I«2 
I»2 
I»2 
I«2 
L»2 
I»2 

4-000000 
4-000014 
4-000006 
4-000022 
4-000030 
F-000002* 

000006      3 
000006      3 
000006      3 
000006      3 
000006      3 
000036     15 

(3) 
(3) 
(3) 
(3) 
(3) 
(3.5) 

TYPE   ADDRESS 
I»2    4-000044 


NAME    TYPE   ADDRESS 
NEWSP   I»2    4-000052 


LABELS 
LABEL    ADDRESS 
200      1-000272 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


LABEL 


ADDRESS 


TOTAL  SPACE  ALLOCATED  =  000400    128 
NO  FPP  INSTRUCTIONS  GENERATED 
.PILOT/NOSPsPILOT/NOTR 


CO 


Example. end 

Build  procedure  for  DPMHOSoTSK,  DPMREM.TSK 


1  E  X  A  H  P  L  E 

1 

.SETN  MAXOIS  5 

.SBTN  MAXLPN  4 

.SETN  LINKS  4 

.SETN  BYTES  0 

.SETN  SECS  0 

.SETS  REPORT  "$RPORT 


20- 


.ASKN  (l.:4.:4.]  LINKS  Number  of  links 

.ASKN  (1. :ie24. :1024.]  BYTES  Number  of  bytes/transfer 

! 

1  D  P  M  H  0  S 

I 

.ENABLE  SUBSTITUTION 

.ASK  ANSWER  Assemble  DPNHOS 

.IFF  ANSWER  .GOTO  HOSTKB 

.FILE: 

.OPEN  EXAMPLE. SYM 

.ENABLE  DATA 

.TITLE   DPMHOS 

;  These  symbols  are  defined  when  the 
;  command  file  EXAMPLE.CMD  is  executed. 


$HOST  >  0 

•  REPORT  * 

$NODCN  -  0. 

$LPERN  -  'LINKS'. 

$BYTCN  "  ' BYTES ' . 

$TIMCN  *    'SECS'. 

$TOTLK  -  'MAXDIS'* 'MAXLPN'. 

.;  $QUES  *    0 


;  Yes,  print  reports  for  host 


;  Maximum  total  links 

;  If  df  then  ask  all  questions 


.DISABLE  DATA 

.CLOSE 

MAC  DPMHOS , DPMHOS/NL :CND/NOSP-EXAMPLE . SYM , EXAMPLE 

.HOSTKB: 

.ASK  ANSWER  Task  build  DPMHOS 

.IFF  ANSWER  .GOTO  HOSINS 

.ENABLE  DATA 

.OPEN  DPMHOS. TKB 

DPMHOS , DPMHOS/NOSP-DPMHOS 

/ 
ASG-TI:1 


> 


UNITS=21 

/ 

.CLOSE 

TKB  eOPMHOS.TKB 

.HOSINS: 

.ASK  ANSWER  Install  OPMHOS 

.IFF  ANSWER  .GOTO  REMOTE 

.IFINS  DPMHOS  REM  DPNHOS 

INS  DPNHOS/TASK^OPMHOS 

PIP  DPMHOS. TSK/PU,.LST,. MAP, .OBJ,. TKB 


W 
I 
to 


D  P  M  R  E  N 


. REMOTE : 

I 

1 

! 

.ASK  ANSWER  Assemble  DPMREM 

.IFF  ANSWER  .GOTO  REMTKB 

.SETN  SECS  0 

.SETS  REPORT  "$RPORT  =20" 

.ASKN  [1. : 3600. : 300. ]  SECS  Number  of  seconds  between  reports 

.FILE: 

.ENABLE  DATA 
.OPEN  EXAMPLE. SYM 

.TITLE   DPMREM 

» 

;  These  symbols  are  defined  when  the  command  file 
;  EXAMPLE.CMD  is  executed. 

$ REMOTE  -  0 

' REPORT ' 

$NODCN  -  1 

$LPERN 

$BYTCN 

$TIMCN 

$TOTLK 

.DISABLE  DATA 

.CLOSE  t0 

MAC  DPMREM, DPMREN/NOSP-EXAMPLE. SYM, EXAMPLE 

PIP  EXAMPLE. SYM ;*/PU 


'LINKS' 
'BYTES' 
•SECS'. 
'LINKS' 


. REMTKB : 

.ASK  ANSWER  Task  build  DPMREM 

.IFF  ANSWER  .GOTO  VMR 

.SETS  GENARG  ": 103000 : 50500" 

.SETS  SWITCH  "/-MM" 

.ASK  ANSWER  Task  build  lor  mapped  system 

.IFF  ANSWER  .GOTO  TKBl 

.SETS  GENARG  "" 

.SETS  SWITCH  "/MM" 

.TKBl: 

.ENABLE  DATA 


# 


.OPEN  DPMREM.TKB 

DPMREM' SWITCH' ,DPMREM/NOSP"DPMREM 

/ 

ASG-TI:1 
PAROGEN 'GENARG' 
UN ITS" 17 
TASK-DPMREH 

/ 

.CLOSE 

TKB  @DPHREM.TKB 


I 


,  IFNINS  VMR  INS  $VMR 

,  IFNINS  RMR  INS  $RMR/TASK= 


.VMR: 

.ASK  ANSWER  Vnr  DPHREN 

.IFF  ANSWER  .GOTO  END 

.IF  <SYSTEM>  -  1  .AND 

.IF  <SySTEM>  =  6  .AND 

.VMRl: 

.ASKS  SYSUIC  What  UIC  has  the  RSXllS  system  image 

.IF  SYSUIC   -  ""  .GOTO  VMRl 

.SETS  ELKS  "114." 

.SETN  NAPFLG  0 

.SETS  FILNAM  "EXAMPLE" 

.ASK  ANSWER  Configure  a  mopped  system 

.IFF  ANSWER  .GOTO  3§ 

.ASKN  [32.:124. :32.1  NUMBER  Memory  size  (KW) 

.SETN  NUMBER  (NUHBER*4.) 

.SETN  NUMBER  NUMBER-»^2. 

.SETS  BLKS  "'NUMBER'"*"." 

.SETS  FILNAM  "EXAMPLE" 

.SETN  MAPFLG  1 

.3$: 

PIP  'FILNAM' .SYS/NV/CO/BLKS: ' DLKS '=' SYSUIC 'RSXllS .TSK 

PI P  ' FILNAM ' . STB/NV* ' SYSUIC ' RSXl IS . STB 

PIP  SVDRV.TSK/NV« 'SYSUIC 'SVDRV. TSK 

PI P  SVDRV . STB/HV- ' SYSUIC ' SVDRV . STB 

PIP  NIDRV.TSK/NV- 'SYSUIC 'NIDRV. TSK 

PIP  NIDRV.STB/NV- 'SYSUIC 'NIDRV. STB 

.IFNINS  ...VMR  INS  $VMR 

.IF  NAPFLG  -  1  .GOTO  MAPVMR 

I 

i  V  M  R   for  unmapped  remotes 

1 

.ENABLE  DATA 

.OPEN  EXAMPLE. VMR 

•FILNAM' 

SET  /POOL-435 

SET  /MAIN*SYSPAR:435:36:TASK 

SET  /MA1N«ISVPAR:473:30:TASK 

SET  /MAIN"NIDPAR:523:13:TASK 

SET  /MAIN«ACPPAR:536:151:TASK 

SET  /MAIN»MCRPAR:707:121:TASK 

SET  /HAIN«GEN: 1030: 505 :TASK 

SET  /MAIN«ERRPAR:1535:43:TASK 

INS  LB: 'SYSUIC 'TKN 


.RMR   ! 


If  M3.2 
If  MPLUS 


00 

I 


V   M  R      for   mapped   remotes 


FIX  TKTN 

INS  LB: 'SYSUIC'BASMCR 

FIX  MCR.. . 

INS  LB: 'SYSUIC'ISVERR 

FIX  ISVERR 

LOAD  SV: 

LOAD  NI: 

INS  LB; 'SYSUIC'DPM50R 

FIX  DPM50R 

RUN  DPN50R 

INS  DPMREM 

FIX  DPMREM 

RUN  DPMREM  10S 

SET  /BUF=TT0:80. 

.DISABLE  DATA 

.CLOSE 

.GOTO  20$ 

.MAPVMR: 

! 

! 

! 

.ENABLE  DATA 

.OPEN  EXAMPLE. VMR 

•FILNAM' 

SET  /POOL-7B0 

SET  /MAIN=SYSPAR:*:36:TASK 

SET  /MAIN»ISVPAR:*:30:TASK 

SET  /MAIN=NIDPAR:*:13:TASK 

SET  /MAIN«MCRPAR:*:140:TASK 

SET  /MAIN-ACPPAR:*:154:TASK 

SET  /MAIN«ERRPAR:*:43:TASK 

SET  /MAIN-GEN: *:420:TASR 

INS  LB: 'SYSUIC'TKN 

FIX  TKTN 

INS  LB : ' SYSUIC ' BASMCR 

FIX  MCR... 

INS  LB: 'SYSUIC'ISVERR 

FIX  ISVERR 

LOAD  SV: 

LOAD  NI: 

INS  LB: 'SYSUIC 'DPM50R 

FIX  DPM50R 


!  NOTE  -  ALL  TASKS  MUST  BE  FIXED. 


!  NOTE  -  ALL  TASKS  MUST  BE  FIXED. 


RUN 

DPM50R 

INS 

DPMREM 

FIX 

DPMREM 

RUN 

DPMREM  10S 

SET 

/BUF«TT0:8fl 

. 

.DISABLE  DATA 

.CLOSE 

.2f$: 

ASN 

SY:«LB: 

.IF 

<SYSTEM>  - 

1 

.IF 

<SYSTEM>  - 

6 

ASN 

-  LB: 

VMR  SEXAMPLE.VMR 
RMR  0EXAMPLE.VMR 


PIP  DPMREM. */PU 

PIP  •FILNAM'.SYS/PU,.STB,.VMR 

.END: 


t  If  M3.2 
1  If  NPLUS 
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32-  1555  PRTSUB  —  PRINT  SUBROUTINE  FOR  AST'S,  EDITS  MESSAGE 

33-  1591  EDTSUB  —  FORMAT  REPORT  MESSAGE,  NUMBERS  RIGHT  JUSTIFIED 
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35-  1702  SAVREG  —  SAVE  GPR'S 

35-  1715  RESREG  —  RESTORE  GPR'S 
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as 


1 

2 

000000 

000020 

000001 

000004 

10 

802000 

11 

000454 

U 

000004 

.TITLE   DPMREN 

THESE  SYMBOLS  ARE  DEFINED  WHEN  THE  COMMAND  FILE 
EXAMPLE.CMD  IS  EXECUTED. 

$RrMOTE  '   0 

$r.PORT  -  20 

9NODCN  '  1 

$LPERN  *  4. 

$ByTCN  -  1024. 

$TIMCN  »  300. 

$TOTLK  «  4. 


DPNREM   MACRO  M1113   15-.VPR-80  10:05   PAGE  2 


03 
I 


1 

2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


;  COPYRIGHT  (C)  1978,1979,1980  BY 

;        DIGITAL  EQUIPMENT  CORPORATION,  MAYNARD,  MASS. 

THIS  SOFTWARE  IS  FURNISHED  UNDER  A  LICENSE  AND  MAY  BE  USED  AND  COPIED 
ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE  AND  WITH  THE 
INCLUSION  OF  THE  ABOVE  COPYRIGHT  NOTICE.  THIS  SOFTWARE  OR  ANY  OTHER 
COPIES  THEREOF  MAY  NOT  BE  PROVIDED  OR  OTHERWISE  MADE  AVAILABLE  TO  ANY 
OTHER  PERSON.  NO  TITLE  TO  AND  OWNERSHIP  OF  THE  SOFTWARE  IS  HEREBY 
TRANSFERRED. 

THE  INFORMATION  IN  THIS  SOFTWARE  IS  SUBJECT  TO  CHANGE  WITHOUT  NOTICE 
AND  SHOULD  NOT  BE  CONSTRUED  AS  A  COMMITMENT  BY  DIGITAL  EQUIPMENT 
CORPORATION. 


DIGITAL  ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR   RELIABILITY 
SOFTWARE  ON  EQUIPMENT  WHICH  IS  NOT  SUPPLIED  BY  DIGITAL. 

.IDENT   /Vl.l/ 
. ENABL   LC 
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I 

so 


79 

80 

81 

62 

8) 

8^ 

8'j 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 


Computation  of  report  values: 

The  bytes  per  second  (BPS) ,  in  the  first  report  line 
is  computed  by  adding  the  count  of  all  bytes  rcv'd  and  xmt'd 
(since  the  link  has  made  a  successful  connection)  and  then 
dividing  by  the  elapsed  tine  since  the  link  was  connected. 
Thus,  this  value  will  gradually  increase  over  time  when  the 
connection  first  starts  and  should  eventually  stabilize. 
If  the  connection  is  broken  the  EXAMPLE  program  that  is 
still  running  will  report  the  BPS  figure  as  slowly  declining 
in  value  and  reaching  zero  if  left  to  run  long  enough. 

In  the  bytes  per  second  per  link  (BPSPL)  column,  the 
figures  are  computed  by  taking  the  total  number  of  bytes 

rcv'd  and  xmt'd  since  the  last  report  (BYTSRX)  and  dividing  by  that  number 
thv9  number  of  seconds  since  the  last  report  (ETLRPT)  . 

If  the  program  is  allowed  to  run  long  enough 
the  counters  will  overflow  and  incorrect  values  may  be 
reported.  Usually,  the  program  will  have  to  run  over  night 
before  this  occurs. 

The  counters  are  reset  to  zero  every  time  a 
connection  is  made. 

Node  name  format: 

The  format  for  a  node  name  is  'NODE0X'.  Where  X 
is  0  through  9.  Thus  the  DLC  command  line  for 
loading  the  first  node  would  look  as  follows: 

DLC  EXAMPLE/BO: 1/NO:NODE06 

Note:  The  first  name  must  be  'NODE00'  with 
the  names  proceeding  in  sequence.  (0,1,2  ...) 
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00 

I 

o 


119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

000400 

133 

000040 

134 

135 

136 

000015 

137 

000012 

138 

002000 

139 

032000 

140 

000001 

141 

000002 

142 

143 

144 

000001 

145 

000002 

146 

000003 

147 

000004 

148 

000005 

149 

000006 

150 

000007 

151 

152 

000020 

153 

000002 

154 

000144 

155 

156 

000005 

157 

000004 

158 

002000 

159 

007020 

160 

161 

162 

163 

000001 

164 

400004 

165 

002000 

166 

000012 

167 

168 

169 

170 

000000 

171 

060004 

172 

000010 

173 

000014 

174 

000016 

175 

000020 

.SBTTL   MCALL'S  6  LOCAL  EQUATES 


.MCALL 
.MCALL 
. MCALL 
.HCALL 

.  IF 
MASSLV  =  1 
LSTCHR   =  '0 

•  ENDC 

.IF 

MASSLV      =    4k90 
LSTCHR      =     ' 

.ENDC 


CR 

LF 

BUFSI2 

Kl 

TILUN 

DPMLUN 


TIEFN 

TRYEFN 

TIMEFN 

WTEFN 

RPTEFN 

DISEFN 

GRNEFN 

MAXLUN 
SECNDS 
INSIZ 

MAXDIS 
MAXLPN 
MAXBYT 
MAXSEC 


15 

12 

1024. 

1024. 

1 

2 


QI0$S,MRKT$S,ASTX$S,Q10W$S,ALUN$S,QI0W$,D1R$ 
GTIM$S , ENAR$S ,MRKT$S ,DSAR$S , WTSE$C ,MRKT$C 
WTSESS,EXIT$S,QIO$C 
WSIGSS,WTSE§S,CLEF§S,SETF$S 

DF  $HOST 


DF  $REMOTE 


=  4 

=  5 

=  6 

=  7 

=  16. 
=  2 
=  100. 

=  5. 
=  4. 
=  1024. 
=  3600. 


Default  values  for  questions 


DEFDIS  =  1. 

DEFLPN  =  4. 

DEFBYT  =  1024. 

DEFSEC  =  10. 


OFFSETS  FOR  --LNKTBL- 


ClOSB 

RIOSB 

XIOSB 

RBUFFR 

XBUFFR 

LUN 


=  0 

=  CIOSB  +  4 
=  RIOSB  +  4 
«  XIOSB  +  4 
=  RBUFFR  +  2 
=  XBUFFR  +  2 


Carriage  return  code 

Line  feed  code 

Buffer  size 

Maximum  RCV  size 

TI:  LUN 

Starting  lun  for  DPM 

*****  Do  not  define  other  iun's 

*****  after  DPMLUN 

TI:  event  flag  num 

TRV  event  flag  num 

TIME  event  flag  num 

WAIT  event  flag  num 

REPORT  event  flag 

lO.DIS  event  flag 

Efn  for  GRNDPB 

Maximum  #  of  Iun's 
Interval  for  mrkt  (Seconds) 
Input  buffer  size 

Maximum  #  of  DIS  nodes 
Maximum  (  of  links/node 
Maximum  «  of  bytes/transfer 
Max  #  of  sees  between  reports 


Default  of  one  node 
Default  links/node 
Default  xfr  byte  count 
Default  time  bewteen  reports 


Offset  to  connect  iosb  address 
Offset  to  receive  iosb  address 
Offset  to  transmit  iosb  address 
Offset  to  receive  buff  address 
Offset  to  transmit  buff  address 
Offset  to  lun  storage  location 


# 
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cd 


176 

000022 

177 

000024 

178 

000026 

179 

000032 

180 

000036 

181 

000042 

182 

000046 

183 

000052 

184 

000056 

185 

000062 

186 

000064 

187 

000066 

188 

000070 

189 

000072 

190 

000074 

191 

000076 

192 

000100 

193 

000102 

194 

000106 

195 

PAGE  4-1 

FLAG 

^ 

LUN  +  2 

PLIST 

s 

FLAG  +  2 

RCVCNT 

s 

PLIST  +  2 

XMTCNT 

a: 

RCVCNT  +  4 

ERRCNT 

s 

XMTCNT  +  4 

RCVSAV 

= 

ERRCNT  +  4 

XMTSAV 

r: 

RCVSAV  +  4 

ERRSAV 

z 

XMTSAV  +  4 

BYTSRX 

s 

ERRSAV  +    4 

LINK 

s 

BYTSRX  +  4 

STATl 

3C 

LINK  +  2 

STAT  2 

STATl  +  2 

lORCV 

STAT2  +  2 

lOXMT 

lORCV  +  2 

LSTDSW 

lOXMT  +  2 

LSTRSB 

LSTDSW  +  2 

LSTXSB 

LSTRSB  +  2 

NODNAM 

LSTXSB  +  2 

TET 

NODNAM  +   4 

Bit0   0  s  slave,  1  =*  master 

Offset  to  ARG  BLK  address 

Storage  loc  for  bytes  rcv'd 

Storage  loc  for  bytes  xmt'd 

Storage  loc  for  error  count 

Temp  storage  for  bytes  rcv'd 

Temp  storage  for  bytes  xmt'd 

Temp  storage  for  error  count 

Storage  for  bytes  rcv'd  6  xmt'd 

Offset  to  RAD50  node  name 

Possible  status  PND,  CON  &  DIS 

Possible  status  RCV,XMT,CON,DIS 

Counter  for  number  of  lO.RCV's  issued 

Counter  for  number  of  lO.XMT's  issued 

Loc  for  last  $DSW 

Loc  for  last  RIOSB 

Loc  for  last  XIOSB 

RAD50  node  name 

Total  elapsed  tine 
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00 

I 


197 

198 

• 

199 

2B0 

000001 

201 

000002 

202 

203 

204 

205 

000002 

206 

000004 

207 

000010 

208 

000020 

209 

000100 

210 

211 

000200 

212 

213 

214 

215 

216 

177776 

217 

177777 

218 

000001 

219 

000002 

220 

000003 

221 

000004 

222 

BIT  DEF'S  FOR  --FLAG — 


MSBIT    *  1 
ACTBIT   =  2 


BIT  DEF'S  FOR   — TSKFLG — 


RCVBIT  =  2 

XMTBIT  «  4 

TMRBIT  =  10 

REPORT  =20 

TRYFLG  =  100 

SUCCES  =  200 


Equate  symbols  w/  reason  code  for  disast 


R.OABO 

s 

-2 

R.OOIS 

s 

-1 

R.LDIS 

s 

1 

R.ACP 

s 

2 

R.CLSD 

= 

3 

R.DEAD 

s 

4 

Timer  flag  (used  in  conast) 
Report  flag  (0  =»  NO,  1  =  YES) 
If  set  then  a  mark  time  has 
been  issued  for  a  reconnect 
1  =  Success,  0  =  failure 
attempt. 


Object  task  exited  or  aborted 
Object  issued  10. CON 
Local  task  issued  lO.OIS 
Acp  being  disconnected 
Distant  processor  being  closed 
Distant  processor  is  dead 


00 
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224 
225 

226 
227 
228 
229 
231 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
'5.76 
277 
278 
279 
280 
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.SBTTL   MACRO  DEFINITIONS 


.MACRO 

LNKBLD 

.PSECT 

$BUFFR 

$$.1  - 

.WORD 

0,0 

.WORD 

0,0 

.WORD 

0,0 

$$.2  - 

!blkb 

BUFSIZ 

$5.3  - 

!blkb 

BUFSIZ 

$$.4  = 

.BLKW 

15. 

$$.5  - 

'.WORD 

0,0 

$$.6  - 

.WORD 

0,0 

$$.7  - 

iwORD 

0,0 

$$.8  - 

.WORD 

0,0 

$$.9  = 

!wORD 

0,0 

$$,10  «  . 

.WORD 

0,0 

$5.11  . 

«  . 

.WORD 

0,0 

$$.12  "    . 

.IF 

DF  $HOST 

.ASCII 

/NODE 00   1  / 

.ENDC 

.IF 

DF  $RBMOTE 

.ASCII 

/HOST       / 

.ENDC 

.$$, 


.PSECT 

.WORD 
.WORD 
.WORD 

.WORD 

.WORD 
.WORD 

.WORD 

.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 


,$$.l,.$$.l+2 
,$$.1+4, .$$.1+6 
,$$.1+10, .$$.1+12 

.$$.2, .$$.3 


.$$.4 

,$$.5, .$$.5+2 
,$$.6, .$$.6+2 
,$$.7, .$$.7+2 

.$$.8, .$$.8+2 
,$$.9, .$$.9+2 
,$$.10, .$$.10+2 


Con  iosb  blk 
Rev  iosb  blk 
Xmt  iosb  blk 

Receive  buffer 

Transmit  buffer 

Plist  buffer 

Dbl  pre  rev  eount 

Dbl  pre  xmt  count 

Dbl  pre  err  ent 

RCV  SAV 

XMT  SAV 

RCV  SAV 

BYTSRX,  BYTES  RCV'D  6  XMT'D  CNT 


;  Address's  of  connect  iosb 

;  Address's  of  rev  iosb 

;  Address's  of  xmt  iosb 

;  ADDR'S  OF  BUFFER'S 

;  lun 

;  Link  flag 

;  Plist  address 

;  Addresses  for  RCVCNT 

;  Addresses  for  XMTCNT 

;  Addresses  for  ERRCNT 

;  Addresses  for  RCVSaV 

;  Addresses  for  XMTSAV 

;  Addresses  for  ERRSAV 


OD 
I 
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281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
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.WORD 

.$$.11, .$$.11+2 

.WORD 

.$$.12 

.WORD 

0,0 

.WORD 

0,0 

.WORD 

0,0,0 

.RAD50 

/       / 

.WORD 
LNKSIZ  «  .  -  . 

0 
$$. 

;  Addresses  for  BYTSRX 

;  Address  of  ascii  node  name 

;  Status  tl  &  «2 

;  Num  of  rev  &  xmt  qio's  issued 

;  Last  $DSW,  RIOSB  &  XIOSB 

;  Area  for  links  node  name 

;  Total  elapsed  time 


.ENDM 


• 
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00 


300 

301 

302 

303 

304 

305 

306 

387 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

33S 

339 

340 

341 

342 

343 

344 

345 

346 

347 


.MACRO 

PUSH     ARCS 

.IRP 

X,<ARGS> 

MOV 

X,-(SP) 

.ENDM 

.ENDM 

*** 

.MACRO 

POP      ARCS 

.IRP 

X,<ARGS> 

MOV 

(SP)+,X 

.ENDM 

.ENDM 

.  ********** 


.MACRO  SOB      REG, LABEL 

DEC  REG 

BEQ  .+6 

JMP  LABEL 

. ENDM  SOB 


********** 


.MACRO 

MOV 

MOV 

MOV 

DIR$ 

.ENDM 


PRINT    MSGADR.MSGLEN 
MSGADR,  <PRTDPB-)-Q.  IOPL> 
MSGLEN , <PRTDPB+Q . IOPL+  2  > 
#40 ,  <PRTDPB+C.  I0PL-«-4> 
tPRTDPB 


.$$. 


.$$. 


.MACRO   PRINTN   MSGADR, ARCS 


.IRP 
MOV 
.$$.  + 
.ENDM 
MOV 
MOV 
CALL 
MOV 
.ENDM 


********** 


X,<ARGS> 
X,PHST2+.$$. 


R1,-(SP) 
MSGADR, Rl 
PRTSUB 
(SP)+,R1 
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OS 


349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 


.MACRO 

MOV 

MOV 

MOV 

CALL 

.ENOM 


ASK      MSGADR,MSGLEN 
MSGADR,<PRTDPB+Q.IOPL> 
MSGLEN,<PRTDPB+Q.I0PL+2> 
#  '  $ , <PRTDPB+Q. IOPL+4 > 
ASK 


.MACRO 

1?USH 

MOV 

ADD 

ADC 

POP 

.  KNDN 


.  ********** 


DBLADD 

<P2> 

Y,R2 

X,2(R2) 

(R2) 

<R2> 


X,Y 


.  tu\cm 

SEXT 

PUSH 

<R0> 

NOVB 

X,R0 

MOV 

R0,X 

POP 

<R0> 

.ENDM 
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00 

CO 


430  001424 

431  001454 

432  001504 

433  001534 
434 


PRTDPB:  QIOW$ 

INPUT:  QIOW$ 

RPTDPB:  QIOW$ 

GRNDPB:  QIOW$ 


IO.WVB,TILUN,TIEFN,,PIOSB,,<0,0,40> 
iO.RVB,TILUN,TIEFN,,IIOSB,,<0,fl> 
IO.WVB,TILUN,RPTEFN, , lOSB, , <0 , 0 , 40> 
IO.GRN,0,GRNEFN, ,GIOSB, ,<GRNBUF,10. ,fl> 


• 


e 


# 
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^ 


377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 

•;,,0 

401 
402 
403 
404 
405 
406 
407 

408 

409 

410 

411 
412 
413 
414 
415 
416 
417 
418 
419 
429 
421 
422 
423 
424 
425 
426 
427 
428 
429 


000000 
000002 
00C004 
000006 
000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000036 
00S040 
000042 
0P0046 
000050 
000214 
000240 
000264 
000300 
000444 
000610 
001264 

001276 
001304 
001306 
001314 
001316 
001324 
001326 
001334 

001336 
001344 

001352 
001360 

001366 
001370 
001372 
001374 
001376 

001400 
001404 
001410 
001414 
001420 


000001 
000004 
000454 
000015 
000000 
000000 
000000 
000004 
000000 
000000 
002000 
000000 
000000 
000000 
000000 
000/00 
000000 
000000 
000000 


000100 
001700 
000300 
001500 
000500 
001300 
000700 
001100 


NODCNT 
LNKCNT 
TIMCNT 
TRYTIM 
ETLRPT 
PLADR : 
RPTLEN 
LPERN : 
BIT: 
LSTIOX 
BYTCNT 
TSKFLG 
XFRSIZ 
TOTBPS 
COUNTR 
CHAR: 
OFFSET 
000000  TEMP: 

ERRCOD 
EDTBUF 
PLISTl 
PLIST2 
SAVBUF 
INBUFF 
PRTBUF 
RPTBUF 
GRNBUF 

002000  000200   LIST: 

001600  000400 

001400  000600 

001200  001000 


000000G  000000G  000000G  EDTBLl: 
000000G  000000G  000000G 

000012   000012   000010   EDTBL2: 
000010   000010   000012 


012446 
063064 
015173 
070416 
114034 


CON: 
PND: 
DIS: 
RCV: 
XMT: 


PIOSB 
IIOSB 
DIOSB 
lOSB: 
GIOSB 


.SBTTL  STORAGE  ALLOCATIONS 

.WORD  $NODCN 

.WORD  $TOTLK 

.WORD  $TIMCN 

.WORD  15 

.WORD  0 

.WORD  0 

.WORD  0 

.WORD  $LPERN 

.WORD  0 

.WORD  0 

.WORD  $ByTCN 

.WORD  0 

.WORD  0 

.WORD  0 

.WORD  0 

.WORD  0 

.WORD  0 

.WORD  0,0 

.WORD  0 

.BLKB  100. 

.BLKW  10. 

.BLKW  10. 

.BLKW  6 

.BLKB  INSIZ 

.BLKB  100. 

.BLKB  300. 

.BLKB  10. 

.WORD  64. ,1024. ,128. ,960. 

.WORD  192. ,896., 256., 832. 

.WORD  320. ,768. ,384. ,704. 

.WOr.D  448.  ,640., 512., 576. 


.WORD  $CDDMG,$CDDMG,$CBDMG 

.WORD  $CBDMG,$CBDMG,$CDDMG 

.WORD  10., 10., 8. 

.WORD  8. ,8. ,10. 


.RAD50 
.RAD50 
.RAD50 
.RAD50 
.RAD50 

.BLKW 
.BLKW 
.BLKW 
.BLKW 
.BLKW 


/CON/ 
/PND/ 
/DIS/ 
/RCV/ 
/XMT/ 

2 
2 
2 
2 
2 


Number  of  remote  nodes 

Total  number  of  links 

Number  of  see's  between  reports 

Num  of  see's  between  reconnect 

Elapsed  time  since  last  report 

Hold  plist  address 

Store  report  length  in  bytes 

Links/node 

Store  master/slave  code 

Index  into  list 

Number  of  bytes  for  XMT 

Task  tlacj 

Store  f  of  bytes  xfr'd 

Total  bytes  rcv'd  &  xmt'd/sec 

Counter  for  divide 

Holds  link  « 

Offset  for  search  routine 

Two  words  tempory  storage 

Err  code  from  dsw  &  iosb  errs 

Buffer  for  EDTSUB 

An  $EDHSG  argblk 

An  $EDMSG  argblk 

Buffer  for  registers  (ast) 

Input  buffer  for  answers 

Output  message  buffer 

Report  message  buffer 

Holds  remote  information 

List  . . . 

...  of  ... 

•*.  Xll   •»• 

...  buffer  sizes 


Conversion  routine 

address's  for  use  in  -EDTSUB- 


Field  size's 

for  use  in  -EDTSUB- 


Status 
Status 
Status 
Status 
Status 


CONNECT 

PENDING 

DISCONNECT 

RECEIVE 

TRANSMIT 


PKTDPB  IOSB 
INPUT  IOSB 
DISCONNECT  IOSB 
RPTDPB  IOSB 
GRNDPB  IOSB 
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W 


436 

437 

438 

439 

44fl 

441 

442 

443 

444 

445 

446 

447 

448 

44S 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 


0E1564 


002224 


002234 
002236 
002240 
002242 


002224* 
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LNKTBL: 


CONBLK: 


002224   000000   000000 
002230   015615   032153 


007552' 

000000 

007464' 

007712' 

000020 


002244   032153   076400 


NN: 


.SBTTL   BUILD  LINK  TABLE  &  CONNECT  BLOCK 


. REPT    $TOTLK 

LNKBLD 

.ENDM 


CONSIZ 


NN: 


.IF  DF  $KOST 

.RAD50  /       / 

.RAD50  /DPMREM/ 
.ENDC 

.IF  DF  $REMOTE 

.RAD50  /       / 

.RAD50  /DPMHOS/ 
.ENDC 

.WORD  DISAST 

.WORD  0 

.WORD  TMOAST 

.WORD  UNSAST 
=  .-.$$. 

.IF  DF  $HOST 

.RAD50  /NODE00/ 
.ENDC 

.IF  DF  $REMOTE 

.RAD50  /HOST   / 
.ENDC 


;  Area  for  node  name  (HOS  ->  REM) 
;  Task  name  in  node 


;  Area  for  node  name  (REM  ->  HOS) 
J  Task  name  (REM  ->  HOS) 


Address  of  disconnect  ast 

Address  of  timeout  ast 
Address  of  unsolicited  ast 
Size  of  connect  block 


;  Node  name  (HOS  ->  REN) 


J  Node  name  (REM  ->  HOS) 
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00 
I 
to 

o 


470 

471 

472 

473 

474 

475 

476 

477 

478  002250 

479 

480 

481 

482 

483  002305 

484  002313 

485  002321 
486 

487  002370 

488  002452 
409 

490  002473 

491  002555 
492 

493 

494  002612 

495  002650 
496 

497 

498  002667 

499 

500  002676 

501  002727 

502  002774 

503  003042 

504  003115 

505  003201 

506  003204 

507  003250 

508  003314 

509  003360 
510 

511  003363 

512  003403 
513 

514  003427 

515  003464 

516  003470 

517  003517 
518 

519  003521 

520  003547 
521 

522  003551 

523  003607 

524  003610 

525  003627 
526 


104 
000035 


040 
040 
045 

040 
040 

040 
040 

000305 
045 
045 


122 

000007 
101 
116 
116 
116 
116 
040 
104 
040 
040 
040 

000162 
045 
120 

000024 
101 
045 
104 
040 

000031 
104 
040 

000030 
123 
040 
105 
040 

000021 


120 


040 
040 
131 

116 
040 

116 
040 


104 
061 


105 

124 
165 
165 
165 
165 
015 
145 
040 
040 
015 

061 
162 

154 
126 
165 
000 

165 
000 

165 

130 


TITLE: 


115   TITLE; 


040 
040 
040 

117 
040 

101 
040 


011 
060 


RPORTl; 


RPTF2: 
RPTFOR: 


101   MSG0: 


MSGl 
MSG2 
MSG3 
MSG4 
MSG5 
MSG6 


124 
155 
155 
155 
155 
012 
146 
040 
040 
012 


060  MSG7: 

151  MSG8: 

164  MSG9: 

102  MSG10: 

155  MSGlli 


155   MSGl 2: 


143   MSG13: 

RIP; 
101 


.SBTTL   ASCII  MESSAGES 

.NLIST   BEX 

.IF      DF  $HOST 

.ASCII   /DPMHOS  —  NETWORK  EXERCISER/<CR><LF> 

TITLEL  =  .  -  TITLE 

.ENDC 

.IF      DF  $REMOTE 

•ASCII   /DPMREM  —  NETWORK  EXERCISER/<CR><LF> 

TITLEL  =  .  -  TITLE 

.ENDC 


.ASCII  /  /<CR><LF> 
.ASCII  /  /<CR><LF> 
•ASCII   /%Y  %3Z    BPS=%M   (Weighted  average) /<CR><LF><CR><LF> 


.ASCII   /  NODE 
.ASCII   /     RCV 


TOTAL 


XMT/<CR><LF> 


.ASCII   /  NAME        STl   ST2        RCV ' D 
.ASCIZ   /    QIC'S    QIC'S      ERR'S/<CR><LF> 

RPORTL  =•  <. -RPORTl  > 

.ASCIZ   /%D      »R   %R   %D   %D   %D   %D   %D/ 

.ASCIZ   /%10A   VI   %R   / 


TOTAL 


XMT'D 


/ 
BPSPL/ 


•ASCII 

MSG0L  = 

•ASCIZ 

•ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

MSG6L  = 

.ASCIZ 

.ASCII 

MSG8L  = 

.ASCIZ 

.ASCI€ 

.ASCII 

.ASCIZ 

MSGllL 

.ASCII 

.ASCIZ 

MSG12L 

.ASCIZ 

.ASCII 

.ASCII 

.ASCII 

RIPL  = 


?  / 
I  ?  * 
D:%D1  ? 
[R:1-%D. 


/READY?  / 

<.-MSG0> 

/ATTEMPTING  CONNECT,  %10A/ 

/Number  of  DIS  nodes  (R:1-%D  D:%D] 

♦Number  of  links/node  [R:1-%D  D:%D 

♦Number  of  bytes/transfer  [R:1-%D. 

/Number  of  seconds  between  reports 

/  /<CR><LF> 

/Defaulting  to  a  psuedo  random  list/<CR><LF> 

/   for  the  selection  of  the  number/<CR><LF> 

*  of  bytes/transfer  in  lO.XMT'S  .*<CR><LF> 
/  /<CR><LF> 

<.  -  MSG6> 

/%10A   connected/ 

*Print  report?  lY/N] :* 

<.-MSG8> 

♦Attempting  to  reconnect  %10A* 

*%VB* 

♦Dump  of  transmit  buffer^ 

*  * 

=  <.-MSGll> 
♦Dump  of  receive  buffer^ 

*  * 

=  <.-MSG12> 
♦Successful  connection  on  %10A^ 

*  * 

♦EXAMPLE  EXITING* 

*  * 

<.-RIP> 


D:%D]  ?  / 


# 
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W 
I 


527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

357 

558 


003630 
003706 
003761 

004045 
004103 
004146 
004221 
004274 
004350 
004424 
004501 
004556 
004614 
004655 
004716 
004775 
005054 


045 
045 
105 
000064 
105 
105 
122 
122 
124 
124 
104 
104 
101 
103 
103 
124 
125 
116 


005150 
005214 
005254 
005313 
005350 
005426 


061 
061 

130 

130 
130 
145 
145 
162 
162 
151 
151 
154 
157 
157 
151 
156 
157 


060 

060 
101 

101 
101 
143 
143 
141 
141 
163 
163 
165 
1  6 
156 
155 
163 
144 


ERRl 
ERR2 
ERR3 


ERR4: 

ERR5: 

RCVERl: 

RCVER2: 

XMTERl: 

XMTER2: 

DISERl: 

DISER2: 

ALNERR: 

CONERl: 

C0NER2: 

TMOERR: 

UNSERR: 


005132   005150'  005214'  000000   RSNTBL: 


045 
045 
045 
045 
045 
045 


061 
061 
061 
061 
061 
061 


060 
060 
060 
060 
060 
060 


RMSG . 2 : 
RMSG . 1 : 
RMSGl; 
RMSG 2: 
RMSG 3: 
RMSG 4: 


.ASCI2 

.ASCIZ 

.ASCII 

ERR3L  = 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCII 

.ASCIZ 

.EVEN 
.WORD 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 
.LIST 


/%10A   Receive  &  transmit  byte  count  not  equal/ 

/%10A   Receive  i  transmit  buffers  not  equal/ 

/EXAMPLE  —  Search  failed,  lun  or  iosb  addr  not  found/ 

<.-ERR3> 

/EXAMPLE  --  Oio  error,  $DSW=%P/ 

/EXAMPLE  --  lO.GRN  ERROR,  IOSB  = 

/Receive  error  (RCVAST)  on  %10A 

/Receive  error  (lO.RCV)  on  %10A 

/Transmit  error  (XMTAST)  on  %10A 

/Transmit  error  (lO.XMT)  on  %10A 

/Disconnect  error  (lO.DIS)  on  %10A 

/Disconnect  error  (lO.DIS)  on  %10A 

/A  lun  error  on  %10A   $DSW  =  %D/ 

/Connect  error  on  %10A   $DSW  =  %D/ 

/Connect  error  on  %10A   IOSB  =  %D/ 

/Timeout  occurred  on  %10A,  timeout  constant=  %D/ 

/Unsolicited  receive,  task  had  no  RCV'S  queued/<CR><LF> 

/Node=   %10A     bytes  in  transmit  attempt=  %D/ 


RMSG . 2 , RMSG .1,0, RMSGl , RMSG2 , RMSG3 , RMSG4 


%D/ 
IOSB  =  %D/ 
$DSW  =  %D/ 
IOSB  =  %D/ 
$DSW  =  %D/ 
$DSW  =  %D/ 
IOSB  =  %D/ 


/%10A 
/%10A 
/%10A 
/%10A 
/%10A 
/%10A 


BEX 


Objpot  task  exited  or  aborted/ 
Object  task  issued  lO.DIS/ 
Local  task  issued  lO.DIS/ 
Acp  being  disconnected/ 
Distant  (Remote)  processor 
Distant  (Remote)  processor 


being  closed/ 
is  dead/ 


00 

I 


005500 
005500 

005530   052767   000021   172270 


PRINT 

BIS 

.IF 
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560 

561  ;  + 

562 

563 

564  ; 

565  ; 
566 

567  ; 

568  ; 

569  ; 

570  ; 

571  ; 

572  ; 

573  ; 
574 
575 
576 
577 
578 
579 

580  005500  START: 

581 
582 
583 
584 
585 
586 
587 

588  ; 

589  2$: 
590 
591 
592 
59: 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 

607  3$: 

608 
609 
610 
611 

612  MOV 

613  MOV 

614  MOV 

615  MOV 

616  MOV 


.SBTTL  START 


INITIALIZATION  CODE 


COMMENTS: 

The  host  task  asks  the  user  to  input  a  few 
parameters  to  some  questions.  The  first  ques  asks  for 
the  number  oZ   DIS  nodes.  This  indicates  the  number  of  nodes 
to  which  the  host  task  will  attempt  to  connect  and  transmit 
data  to.  The  second  question  asks  for  the  number  of  links/node. 
This  number  will  be  used  to  determine  the  number  of  multiple 
links  the  host  will  attempt  to  connect  to  the  remote  task  'DPMREM' 
Question  three  asks  the  number  of  bytes /transfer . 
Each  ti.e  a  lO.XKT  is  issued,  the  number  of  bytes 
to  send  is  determined  by  the  answer  this  question. 
Evety  so  often  a  periodic  report  is  printed.  The 
interval  between  printings  of  this  report  is  asked 
for  in  question  five. 


#TITLE,#TITLEL 
#$RPORT,TSKFLG 
DF  $HOST 


How  many  DIS's  should  we  talk  to  ??? 


MOV 

#MAXDIS,PLIST1 

MOV 

#DEFDIS,PLISTl+2 

MOV 

#PRTBUF,R0 

MOV 

#MSG2,R1 

MOV 

#PLIST1,R2 

CALL 

$EDMSG 

MOV 

#DEFDIS,NODCNT 

ASK 

#PRTBUF,R1 

TST 

Rl 

BEQ 

3$ 

CMP 

Rl,#2 

BGT 

2$ 

CALL 

$CDTB 

TST 

Rl 

BEQ 

2$ 

CMP 

RlftMAXDIS 

BGT 

2$ 

MOV 

R1,N0DCNT 

.IF 

DF  $QUES 

Ask  how  many  links/node  should  we  use  ??? 


#MAXLPN,PLIST1 

IDEFLPN,PLISTl+2 

#PRTBUF,R0 

#MSG3,R1 

#PLIST1,R2 


;  Tell  user  who  we  are 

;  Reports  for  rem  and  test  mode 

;  Only  ask  ques's  in  host  task 


Setup  number  in  arg  tbl 

Default  answer 

Outbuf  address 

Ascii  mesisage  address 

Arg  tbl  address 

Format  message 

Assume  default 

Ask  #  of  DIS  nodes  ques 

User  want  default  ??? 

Branch  if  yes 

More  than  2  digits  ??? 

Ask  again  if  too  many 

Cnvrt  decimal  ascii  to  binary 

Answer  =  0  ??? 

Can't  have  answer  of  zero 

Want  more  than  we  can  handle  ??? 

Ask  again 

Save  DPM  node  count 


Setup  number  in  arg  tbl 

Default  answer 

Outbuf  address 

Ascii  message  address 

Address  of  arg  tbl 


D0 
I 
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617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

63'i 

6iv 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

'^49 

650 

651 

652 

653 

654 

f55 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 
670 
671 
672 
673 


PAGE  12- 

1 

CALL 

$EDMSG 

MOV 

#DfcFLPN,LPERN 

ASK 

iPRTBUF,Rl 

TST 

Rl 

BEQ 

4$ 

CMP 

Rl,#l 

BGT 

3$ 

CALL 

$CDTB 

TST 

Rl 

BEQ 

3$ 

CMP 

R1,»MAXLPN 

BGT 

3$ 

MOV 

R1,LPERN 

.ENDC 

;  §QUES 

4$: 

.IF 

DF  $QUES 

';  Ask 

for  numbe 

r  of  bytes/transf 

MOV 

#MAXBYT,PLIST1 

MOV 

#DEFBYT,PLISTl+2 

MOV 

#PRTBUF,R0 

MOV 

#MSG4,R1 

MOV 

#PLIST1,R2 

CALL 

$EDMSG 

MOV 

#DEFBYT,ByTCNT 

ASK 

iPRTBUF,Rl 

TST 

Rl 

BEQ 

6$ 

CMP 

Rl,#4 

BGT 

4$ 

CALL 

$CDTB 

TST 

Rl 

BNE 

5$ 

PRINT 

«MSG6,iMSG6L 

BR 

6$ 

5$: 

CMP 

R1,#MAXBYT 

BGT 

4$ 

MOV 

Pl.BYTCNT 

.ENDC 

;  SQUES 

6$: 

.IF 

DF  $QUES 

;  Print  reports  ??? 

7 

ASK 

#MSG8,#MSG8L 

CMP 

Rl,#l 

BGT 

6$ 

BIS 

♦REPORT, TSKFLG 

CMPB 

INBUFF,# 'Y 

BEQ 

7$ 

CMF 

INBUFF,#'y 

BEQ 

7$ 

BIC 

;>REPORT,TSKFLG 

CMPB 

INBUFF,#  'N 

BEQ 

8$ 

CMPB 

INBUFF,i'n 

Format  message 

Assume  default  answer 

Ask  links/node  ques 

User  want  default  ??? 

Branch  if  yes 

More  than  1  digit  ??? 

Ask  ques  again  if  so 

Cnvrt  decimal  ascii  to  binary 

Answer  =  0  ??? 

Ask  again  if  so 

Over  maximum  ??? 

Sorry,  can't  have  that  many 

Save  links/node  count 


Setup  arg  list 

Default  answer 

Outbuf  address 

Ascii  message 

Address  of  arg  tbl 

Format  rosg 

Assume  default  answer 

Ask  for  bytes/transfer  ??? 

Default  to  Psuedo  random  list 

Yes,  if  just  <CR>  input 

More  than  4  digits  ??? 

Ask  if  too  many 

Cnvrt  decimal  ascii  to  binary 

Answer  "  0  ??? 

Branch  if  not  *   0 

Psuedo  random  list  selected 

Go  to  jiext  question 

Greater  thin  maximum  ??? 

Branch   s  ,  -k  ques  again  if  so 

Save  yte  co»..  >-  for  use  later 


Ussr  want  report  ??? 

Extraneous  chars  ??? 

Ask  again  if  so 

Assume  he  wants  report 

Yes  ??? 

Branch  if  so 

Lowercase  yes  ??? 

Branch  if  so 

Assume  answer  is  negative  now 

No  ??? 

Branch  if  so 

Lowercase  no  ??? 


OS 

I 
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674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 


BEQ 

8$ 

BR 

6$ 

.ENDC 

;  $QUES 

;  Ask  for  time 

interval  between 

7$ I      MOV 

#MAXSEC,PLIST1 

MOV 

#DEFSEC,PLISTl+2 

MOV 

«PRTBUF,R0 

MOV 

«MSG5,R1 

MOV 

#PLIST1,R2 

CALL 

$EDMSG 

MOV 

IDEFSECTIMCNT 

ASK 

«PRTBUF,R1 

TST 

Rl 

BEQ 

8$ 

CMP 

Rl,i3 

BGT 

7$ 

CALL 

$CDTB 

TST 

Rl 

BEQ 

7$ 

CMP 

R1,«MAXSEC 

BGT 

7$ 

MOV 

R1,TIMCNT 

;  Compute  total 

nunber  of  links 

8$:      MOV 

NODCNT,R0 

MOV 

LPERN,Rl 

MUL 

R0,R1 

MOV 

Rl.LNKCNT 

.ENDC 

Branch  if  so 

Illegal  input,  try  again 


Setup  arg  blk 

Default  answer 

Output  buffer 

Msg  to  be  formatted 

Arg  table 

Format  msg 

Assume  default  time 

Ask  interval  between  reports 

No  chars  in  means  default 

Branch  if  default 

More  than  2  digits  ??? 

Ask  if  too  many 

Cnvrt  decimal  ascii  to  binary 

Input  «  0  ??? 

Ask  ques  again  if  answer  ^  0 

More  than  maximum  allowed  ??? 

Ask  ques  again  if  time  too  long 

Save  time  count  use  later 


(NODCNT  *  LPERN)  -  LNKCNT 
Only  low  order  product  needed 
Compute  total  t  of  links 
Save  count  for  use  later 
$HOST 
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708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

7Cf 

7C1 

762 

It 

76-' 


.SBTTL   ACT2 


—  ISSUE  CONNECTS 


005536 
005536 
005542 
005546 
005552 

005560 
005564 
005572 

005600 
005600 
005606 

005614 
£05622 

005630 
005634 
005642 
005650 
005654 
005662 

005666 
005706 
005710 
005740 

005742 
005750 

005754 
005760 
005762 

005766 


012705 
012701 
016702 
112767 

016703 
012767 
112767 


016765 
016765 

016767 
016767 

016504 
1167(>4 
116764 
010165 
156765 
000367 


103015 

000405 

016765 
004767 

062705 
005201 
105267 


1  + 


ACT  2 


ACT2i 


001564* 
000002 
172226 
000040 


172256 


172232 

000400   172226 

000061   172237 


1$: 


2$! 


174440 
174434 

174424 
174420 

000062 
172176 
172171 
000020 
172140 
172132 


000102 
000104 

174402 
174376 


000005 
000010 

000022 


173424   000064 
002560 

000110 

172051 


3$: 

4$: 


COMMENTS : 

This  section  of  code  initializes  the  link  entry 
table  and  starts  the  whole  process  going  by  issuing  a  connect, 

INPUTS: 


;  Point  to  link  table 

;  Set  to  starting  lun  number 

;  Get  t  of  nodes  to  connect  to 

;  Reset  last  char  for  node  name 

;  #  of  i inks/node 

;  Set  master/slave  bit 

;  Reset  ascii  Nth  link  char 


Save  node  name,  part  1 
Save  node  name,  part  2 

Setup  connect  block 

Setup  connect  block,  part  2 

Get  address  to  ascii  node  name 

Make  a  new  node  name 

Set  ascii  Nth  link 

Set  lun  in  link  table 

Set  master/slave  flag  in  link 

Reverse  bit  setting 

Assign  lun  to  NI: 
Branch  if  no  errors 
Tell  user  of  error 
Don't  do  10. CON 

Initial  status  =  disconnected 
Go  issue  10. CON 

Inc  to  nxt  entry  in  link  table 

Inc  to  next  lun 

Inc  to  next  ascii  link  number 

Loop  connecting  — LPERN — ... 
. . .  links  per  node. 

If  generating  host  code  Hi 
Change  printing  node  name 
Create  new  node  name 
Loop  until  all  nodes  connected 

End  of  host  code 


MOV 
MOV 
MOV 
MOVB 

tLNKTBL,R5 
•DPMLUN,R1 
N0DCNT,R2 
#LSTCHR,CHAR 

MOV 
MOV 
MOVB 

LPERN, R3 

#MASSLV,BIT 

#'1,CHAR-H 

MOV 
MOV 

NN,N0DNAM(R5) 
NN-»^2,NODNAM-»-2(R5) 

MOV 
MOV 

NN,CONBLK 
NN+2,CONBLK+2 

MOV 

MOVB 

MOVB 

MOV 

BISB 

SWAB 

LINKERS) ,R4 
CHAF,5(R4) 
CHARvi ,10(R4) 
Rl,LUNtr<5) 
BIT, FLAG (R5) 
BIT 

ALUN$S 
BCC 

PRINTN 
BR 

LUN(R5),i"NI,i0 

3$ 

#ALNERR,<LINK(R5) ,$DSW> 

4$ 

MOV 
CALL 

S.DIS,STAT1(R5) 
CONSUB 

ADD 
INC 
INCB 

#i.NKbI2,R5 

Rl 

CHAR+1 

SOB 


R3,2$ 


.IP 

DF  $HOST 

INCB 

CHAR 

INC 

NN  +  2 

SOB 

R2,l$ 

.ENDC 
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On 


765  005776 

766  006002 
767 


005067   172006 


CLR      ETLRPT 

NRKT$S   ITIMEFN , # 1 , fSECNDS , tTIMAST 


Reset  time  since  last  report 
Start  timer 
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770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787  006030 

788 

789  006030 

790  006042 

791 

792  006054 

026767 

171730 

171722 

793  006062 

002762 

794 

795  006064 

032767 

000020 

171734 

796  006072 

001756 

797 

798  006074 

012705 

001564' 

799  006100 

016703 

171676 

800  006104 

801 

802  006112 

005067 

171714 

803  006116 

012704 

000214' 

804  006122 

805 

806  006132 

016504 

000024 

807 

808  006136 

016524 

000062 

809 

810  006142 

016524 

000064 

811  006146 

016524 

000066 

812 

813  006152 

017575 

000026 

000042 

814  006160 

017575 

000030 

000044 

815  006166 

016524 

000042 

816 

817  006172 

017500 

000026 

818  006176 

017501 

000030 

819  006202 

071065 

000106 

820  006206 

060067 

171620 

821 

822  006212 

017575 

000032 

000046 

823  006220 

017575 

000034 

000050 

824  006226 

016524 

000046 

825 

»♦ 


.SBTTL   BCKGND  —  PRINT  PERIODIC  REPORTS  ABOUT  ACTIVITY 


BCKGND 


COMMENTS 


When  the  timer  goes  off,  this  routine  collects 
the  information  from  the  link  table  entries  and 
prints  a  report.  It  then  resets  the  timer  and 
waits  for  it  to  go  off  again. 


IKPUTS: 


LNKTBL  -  The  link  table  entries 


OUTPUTS : 


Formatted  ascii  output  on  the  users  terminal 


BCKGND : 


1$: 


CLEF$S  iTIMEFN 

WTSE$S  ITIMEFN 

CMP  ETLRPT,TIMCNT 

BLT  BCKGND 

BIT  #REPORT,TSKFLG 

BEQ  BCKGND 

MOV  «LNKTBL,R5 

MOV  LNKCNT,R3 
DSAR$S 

CLR  TOTBPS 

MOV  «PLIST1,R4 

GTIM$S  R4 

MOV  PLIST(R5),R4 

MOV  LINK(R5) , (R4)+ 

MOV  STATl (R5) , (R4)+ 

MOV  STAT2(R5) , (R4)+ 

MOV  §RCVCNT(R5) ,eRCVSAV(R5) 

MOV  §RCVCNT+2(R5) ,eRCVSAV+2(R5) 

MOV  RCVSAV(R5) , (R4)+ 

MOV  §RCVCNT(R5) ,R0 

MOV  eRCVCNT+2(R5) ,R1 

DIV  TET(R5),R0 

ADD  R0, TOTBPS 

MOV  §XMTCNT(R5) ,§XMTSAV(R5) 

MOV  eXMTCNT+2{R5) ,eXMTSAV+2(R5) 

MOV  XMTSAV(R5) , (R4)+ 


;  Reset  event  flag 

;  So  we  don't  tie  up  the  cpu 

;  Print  report  yet  ??? 
;  Branch  back  if  not  yet 

;  Does  user  want  reports  ??? 
;  Branch  if  not 

;  Point  to  link  table 

;  Get  link  count 

;  Disable  ast's.  Freeze  counters 

;  Reset  total  bytes/sec  count 

;  Point  to  plist 

;  Put  time  &  date  in  list 

;  Point  to  param  list  for  link 

;  Get  address  to  ascii  node  namee 

;  Copy  status  code  #1 
;  Copy  status  code  #2 

;  Freeze  cntrs,  copy  to  unused  area 

;  Freeze  counters 

;  Get  addr  to  dbl  pre  counters 

;  Ready  for  divide 

;  Part  #2 

;  Compute  bytes/sec 

;  Sum  bytes/sec  for  all  rev's 

;  Freeze  counters,  part  #1 
;  Freeze  counters,  part  #2 
;  Get  addr  to  dbl  pre  counters 
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DO 
I 

oo 


826 

006232 

017500 

000032 

827 

006236 

017501 

000034 

828 

006242 

071065 

000106 

829 

006246 

060067 

171560 

830 

831 

006252 

017500 

000056 

832 

006256 

017501 

000060  

833 

006262 

005075 

000056 

834 

006266 

005075 

000060 

835 

836 

006272 

071067 

171512 

837 

006276 

010024 

838 

839 

006300 

016524 

000070 

840 

006304 

016524 

000072 

841 

842 

006310 

017575 

000036   000052 

843 

006316 

017575 

000040   000054 

844 

006324 

016524 

000052 

845 

846 

006330 

062705 

000110 

847 

006334 

848 

006344 

005067 

171440 

849 

MOV 
MOV 
DIV 
ADD 

MOV 
MOV 
CLR 
CLR 

DIV 

HOV 

MOV 
MOV 

MOV 
MOV 
MOV 

ADD 
SOB 
CLR 


eXMTCNT(R5) , R0 
#XMTCNT+2(R5)  ,Rl 
TET(R5) ,R0 
R0,TOTBPS 

eBYTSRX(R5) ,R0 
§BYTSRX+2(R5) ,R1 
§BYTSRX(R5) 
eBYTSRX+2(R5) 


ETLRPT,R0 
R0, (R4)+ 

I0RCV(R5) , 
I0XMT(R5) , 


(R4)  + 
(R4)  + 


@ERRCNT{R5) ,eERRSAV(R5) 
§ERRCNT+2(R5) , eERRSAV+2 (R5 ) 
ERRSAV(R5) , (R4)+ 

#LNKSIZ,R5 

R3,l$ 

ETLRPT 


;  Get  ready  for  divide 

;  Setup  part  #2 

;  Compute  bytes/sec  xmt'd 

;  Sum  bytes/sec  for  all  xmt ' s 

;  Setup  for  divide  -  hi  order 

;  Setup  for  divide  -  lo  order 

;  Reset  byte  count 

;  Reset  byte  count,  part  #2 

;  Compute  bytes/sec  per  link 

;  Save  in  plist 

;  Copy  cnt  of  rev  qio's  issued 

;  Copy  cnt  of  xmt  qio's  issued 

;  Freeze  error  count 

;  Freeze  error  count,  part  #2 

;  Get  addr  to  dbl  pre  counts 

;  Inc  to  next  link  table  entry 

;  Loop  until  all  info  has  been  gathered 

;  Reset  time  since  last  report 
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to 

NO 


851 

006350 

852 

853 

006356 

005767 

171450 

854 

006362 

002002 

855 

006364 

0050(i7 

171442 

856 

006370 

016767 

171436 

171632 

857 

006376 

012700 

000610' 

858 

006402 

012701 

002305' 

859 

006406 

012702 

000214' 

860 

006412 

004767 

000000G 

861 

006416 

012767 

000610' 

173074 

862 

006424 

010167 

173072 

863 

006430 

864 

865 

006436 

012705 

001564' 

866 

006442 

016701 

171334 

867 

006446 

012767 

000610' 

173044 

868 

006454 

004767 

002722 

869 

006460 

016767 

171330 

173034 

870 

006466 

871 

006474 

062705 

000110 

872 

006500 

873 

874 

006510 

000167 

177314 

875 

ENAR$S 


5$: 


6$! 


TST 

TOTBPS 

BGE 

5$ 

CLR 

TOTBPS 

MOV 

TOTBPS, PLISTl+14 

MOV 

#RPTBUF,R0 

MOV 

#RP0RT1,R1 

MOV 

#PLIST1,R2 

CALL 

$EDMSG 

MOV 

#RPTBUF , <RPTDPB+Q . I0PL> 

MOV 

Rl,<RPTDPB+Q.I0PL+2> 

DIR$ 

#RPTDPB 

MOV 

#LNKTBL,R5 

MOV 

LNKCNT,R1 

MOV 

♦RPTBUF , <RPTDPB+Q. IOPL> 

CALL 

EDTSUB 

MOV 

RPTLEN, <RPTDPB+Q. IOPL+2 

DIR$ 

IRPTDPB 

ADD 

#LNKSIZ,R5 

SOB 

Rl,6$ 

JMP 


BCKGND 


Enable  ast's  recognition 

Is  number  negative 

Branch  if  positive 

Don't  want  negative  value 

Insert  cnt  in  report  plist 

Point  to  report  buffer 

Point  to  format  string 

Point  to  argblk  for  report  header 

Format  report  header 

Put  buf  adr  in  report  dpb 

Put  msg  length  in  report  dpb 

Print  report  header 

Point  to  top  of  link  table 

Get  link  count 

Insert  common  buffer  addr 

Edit  report  line 

Copy  msg  len  into  dpb 

Print  report  line 

Inc  to  next  link  table  entry 

Loop  until  all  reports  printed 

Loop,  and  do  somemore  reports 


\ 


\ 


\ 


\ 


\ 


CO 

I 

o 
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RCVAST  --  RECEIVE  DATA  &  Ai'T   NEW  DATA  OR  REXMT  RCV'D  DATA 


877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 

906  006514 

907  006514 
908 

909 
910 

911  006520 

912  006522 

913  006530 
914 

915 
916 

917  006534 

918  006542 
919 


.SBTTL   RCVAST 


RECEIVE  DATA  &  XMT  NEW  DATA  OR  REXMT  RCV'D  DATA 


RCVAST 


COMMENTS  1 


Upon  completion  of  the  lO.RCV  request  this  ast  routine 
is  entered.  The  extra  item  on  top  of  the  stack  (The 
other  items  are  the  normal  ast  stuff  that  is  present 
upon  ast  entry.)  is  the  address  of  the  iosb  blk.  ihis 
address  is  used  as  a  key  to  search  and  locate  the 
corresponding  entry  in  the  link  table.  When  the  correct 
link  entry  is  found,  the  error  status  of  this  lO.RCV 
is  checked.  If  no  errors  have  occurred,  then  the  bytes 
received  are  tallyed.  Next  the  routine  determines  if  this 
is  a  master  or  slave  link.  If  a  master  link,  the  buffer 
just  received  is  compared  to  the  buffer  transmited. 
They  both  should  be  equal.  Then  a  new  transmit  buf 
is  prepared  and  a  new  RCV  -  XMT  qio  pair  is  issuer 
for  this  link.  In  the  case  of  a  link  being  a  slav« 
it's  duty  is  to  forward  the  received  buffer  to  the 
sender  at  the  other  end.  So  the  receive  buffer  is  switched 
to  become  the  transmited  butter,  while  the  old  transmit 
buffer  becomes  the  receive  buffer. 


STACK! 


(SP) 


Address  of  recieve  iosb 


004767   003136 


RCVAST; 

CALL     SAVREG 

Locate  link  entry  in  table. 


011600 
012767 


000004   W1310 


004767   00320: 


MOV 

(SP) ,R0 

MOV 

♦RIOSB, OFFSET 

CALL 

SEARCH 

Check  for  errors. 


122775 
001434 


000000G  000004   2$: 


CMPB     #IS.SUC,§RI0SB(R5) 
BEQ      4$ 


;  Save  registers  on  stacK 


;  Setup  w/  rev  iosb  addr 
;  Look  for  rev  iosb  addr 
;  Go  search  link  table 


;  Rvc  qio  successful  ??? 
;  Branch  if  it  was 
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RCVAST  —  RECEIVE  DATA  i    XMT  NEW  DATA  OR  REXMT  RCV'D  DATA 


921 
922 

923 

924  006544 

925  006560 

926  006610 

927  006630 

000167 

001354 

928 

929 

930 

931  006634 

932  006654 

933 

934 

935 

936  006674 

032765 

000001 

000022 

937  006702 

•01421 

938 

939 

940 

941  006704 

004767 

001772 

942  006710 

032767 

000200 

171110 

943  006716 

001002 

944  006720 

000167 

001264 

945  006724 

946  '706724 

004767 

002122 

947  006730 

052767 

00^006 

171070 

948  006736 

004767 

001270 

949  006742 

•§0167 

••1242 

950 

951 

952 

953  006746 

017567 

000006 

171054 

954 

955  006754 

016501 

000014 

956  006760 

016565 

000016 

000014 

957  006766 

010165 

000016 

958 

959  006772 

052767 

000006 

171026 

960  007000 

004767 

001226 

961  007004 

000167 

001200 

962 

963 

Print  error  nessage. 

3$:      SEXT  §RI0SB(R5) 

PRINTN  #RCVER1,<LINK(R5) ,§RI0SB(R5)> 

DBLADD  «1,ERRCNT(R5) 

JMP  ASTEXI 

;  Count  bytes  received 

4$:      DBLADD   #RI0SB+2 (R5) ,RCVCNT (R5) 
DBLADD   ^RIOSB+2(R5) ,bYTSRX(R5) 


Master/Slave  ??? 


BIT 
BEC 

If  naster  link, 


iMSBIT,FLAG(R5) 
6$ 


5$t 


CALL 

CMPBUF 

BIT 

«SUCCES,TSKFLG 

BNE 

55 

JMP 

ASTEXI 

CALL 

GENBUP 

BIS 

iRCVBIT+XMTBIT,TSKFLG 

CALL 

RCVXMT 

JMP 

ASTEXI 

;  If  slave  link, 


6$: 


MOV 

MOV 
MOV 
MOV 

BIS 

CALL 

JMP 


9RIOSB4^2(R5)  ,XFRSIZ 

RBUFFR(R5) ,Rl 
XBUFFR(R5) ,RBUFFR(R5! 
R1,XBUFFR(R5) 

tRCVBIT+XMTBIT.TSKFLG 

RCVXMT 

ASTEXI 


;  Sign  extend  err  code 

;  Tell  user  of  error 

;  Count  errors 

;  Go  count  errs,  exit  ast 


Keep  track  of  bytes  rcv'd 
Count  bytes  rcv'd  fc  xmt'd 


Master/Slave  ??? 
Branch  if  slave 


;  Cflip  xmt'd   to   rcv'd   buffer 

;  Compare  good  ??? 

;  Branch  if  okay 

;  Soaething  wrong,  exit  ast 

;  Generate  new  xmt  buffer 

;  Set  to  issue  rev  tt  xmt  qio's 

;  Issue  qio's 

;  Go  exit  ast 


;  Copy  bytes  rcv'd 

Switch  buffer  addresses  so  .. 
...buffr  just  rcv'd  will  be.. 
.  . .  sent. 

;  Set  to  issue  rev  i    xmt  qio's 

;  Issue  qio's 

;  Go  to  common  ast  exit 
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KMTAST  --  TRANSMIT  AST,  CHECK  FOR  ERRORS,  COUNT  BYTES  XMT ' D 


00 
I 


965 

9C6 

967 
968 
969 
979 

971 
972 
973 
974 

975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 

99t: 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 


007010 

007010   004767   002642 


007014   011600 

007016   012767   000010   171014 

007024   004767   002712 


007030   1227/5   000000G  000010 
007036   001434 


007040 
007054 
007104 
007124   000167   001060 


007130 
007150 
007170   000167   001014 


.SBTTL   XMTAST 


TRANSMIT  AST,  CHECK  FOR  ERRORS,  COUNT  BYTES  XMT'D 


XMTAST 


XMTAST: 


COMMENTS ; 


STACK : 


The  code  for  this  ast  is  identical  to  the  first 
couple  of  sections  of  code  for  the  -RCVAST-. 
First  the  link  entry  is  located  in  the  link  table. 
Next  the  error  status  is  checked.  If  no  errors 
the  bytes  transmited  are  counted. 


(SP)  =  Address  of  transmit  iosb. 


CALL  SAVREG 

Locate  link  entry  in  table. 

MOV  (SP),R0 

MOV  iXIOSB, OFFSET 

CALL  SEARCH 

Check  for  errors. 

2$:      CMPB  IIS.SUC,§XI0SB(R5) 

BEQ  4$ 


Print  error  message. 

3$:      SEXT  ^XI0SB(R5) 

PRINTN  tXMTERl,<LINK(R5) ,@XI0SB(R5) > 

DBLADD  |1,ERRCNT(R5) 

JMP  ASTEXI 


Count  bytes  transmited. 

4$:  DBLADD  §XI0SB+2 (R5) ,XMTCNT (R5) 
DBLADD  §XIOSB+2(R5) ,BYTSRX(R5) 
JMP      ASTEXI 


Save  registers  on  stack 


Get  address  of  xmt  iosb 

Setup  for  iosb  search 

Go  search  for  matching  addr 


Xmt  successful  ??? 
Branch  if  it  was 


Sign  extend  err  code 

Tell  u'-'^r  of  error 

Count    rors 

Go  leave  ast  6  inc  error  cnt 


Count  bytes  transmitted 
Count  bytes  rcv'd  6  xmt'd 
Go  leave  ast 
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00 

I 


1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

1038 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1049 

1050 

1051 

1052 

1053 

1054 

1055 

1056 

1057 

1058 

1059 

1060 

1061 


007174 
007174 


007200 
007202 
007210 


007214 
007222 
007224 
007232 
007240 
007242 
007262 
007266 
007266 
007274 
007276 
007324 
007324 

007330 
007330 
007352 


.SBTTL   CONAST  —  CONNECT  AST,  START  XMT  &  RCV  PROCESSES 


;  + 


CONAST 


» 
t 
I 
} 
t 
f 
1 
} 
» 
; 
; 
; 
> 

CONAST; 


COMMENTS : 


004767   002456 


011600 

012767   000000   170630 

004767   002526 


127527  000000 

001442 

016765  172142 

127527  000000 

001412 

000167  000722 


032767   000100   170532 
001013 


167   000660 


016765   172010   000064 


When  a  connection  is  made  binding  at  both  ends 

of  the  link  by  the  acp  this  ast  is  executed. 

The  top  item  on  the  stack  is  the  iosb  address 

for  which  the  connection  was  requested.  This 

address  is  used  to  locate  the  entry  in  the  link 

table.  When  this  is  found,  the  iosb  is  checked  for 

any  errors.  If  no  errors  the  status  of  the  link 

is  changed  to  -CON-  (Connected) .  Next  if  this  entry  is 

specified  as  a  master  link,  the  initial  transfer  of  data 

is  started  up.  In  the  case  of  a  slave  link,  only 

a  -RCV-  qio  is  issued. 


STACK : 


CALL 


(SP) 


Address  of  connect  iosb 


SAVREG 


; 

;  Locate  entry  in  link  table. 

MOV  (SP),R0 

MOV  ICIOSB, OFFSET 

CALL  SEARCH 


Check  for  errors. 


000000G  2$: 

e!00064 
000000G 


3$: 

4$: 
5$: 


CMPB 

BEQ 

MOV 

CMPB 

BEQ 

DBLADD 

JMP 

BIT 
BNE 
MRKT$S 

JMP 


PRINTN 
MOV 


@CI0SB(R5) ,iIS.SUC 

5$ 

S.DIS,STAT1(R5) 

§CI0SB(R5) ,«IE.NNN 

3$ 

#1,ERRCNT(R5) 

ASTEXI 

#TRYFLG,TSKFLG 

4$ 

♦TRYEFN ,TRYTIM , #SECNDS , #TRYAST 

ASTEXI 


#MSG13,<LINK(R5) > 
S,C0N,STAT1(R5) 


Save  registers  on  stack 


Get  iosb  address  from  stack 
Setup  for  iosb  addr  search 
Go  look  for  matching  addr 


Connect  successful  ??? 
Branch  if  success 
Not  pending  anymore 
No  such  node  ??? 
Branch  if  no  node 
Count  error 
Exit  ast  routine 

Reconnect  attempt  in  progress  ?? 

Branch  if  yes 

Try  to  reconnect  later 

Go  leave  ast 


Tell  user  we  connection 
Link  is  now  connected 
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09 
I 


1063 

1064 

; 

1065 

i 

1066 

« 

1067 

007360 

005075 

000026 

1068 

007364 

005075 

0^^  1^030 

1069 

1070 

007370 

005075 

000032 

1071 

007374 

005075 

000034 

1072 

1073 

007400 

005065 

000070 

1074 

007404 

005065 

000072 

1075 

1076 

007410 

005065 

000106 

1077 

1078 

1079 

1080 

007414 

032765 

000001 

000022 

1081 

007422 

001411 

1082 

1083 

1084 

1085 

1086 

1087 

007424 

004767 

001422 

1088 

007430 

052767 

000006 

170370 

1089 

007436 

004767 

000570 

1090 

007442 

000167 

000542 

1091 

1092 

1093 

1094 

1095 

007446 

052767 

000002 

170352   6 

1096 

007454 

004767 

000552 

1097 

007460 

000167 

000524 

1098 

Reset  counters 


CLR 
CLR 

§RCVCNT(R5) 
@RCVCNT+2 (R5) 

CLR 
CLR 

0XMTCNT(R5) 
§XMTCNT+2(R5) 

CLR 
CLR 

I0RCV(R5) 
I0XMT(R5) 

CLR 

TET(R5) 

MASTER/SLAVE 

??? 

BIT 
BEQ 

#MSBIT,FLAG(R5) 
6$ 

If  MASTER,  init  transfer  to  slave  link 
at  other  end  of  connection. 


CALL 

GENBUF 

BIS 

#RCVBIT+XMTBIT,TSKFLG 

CALL 

RCVXMT 

JMP 

ASTEXI 

Reset  bytes  received  counter 

Reset  bytes  received  counter 

Reset  bytes  xmt'd  counter 

Reset  bytes  xmt'd  counter 

Reset  rev  qio  counter 

Reset  xmt  qio  counter 

Reset  total  elapsed  time 


;  Master/slave  ??? 
;  Branch  if  slave 


If  SLAVE,  setup  initial  receive  request, 


BIS 

#RCVBIT,TSKFLG 

CALL 

RCVXMT 

JMP 

ASTEXI 

Generate  new  xmt  buff 
Do  both  rev  &  xmt  qio's 
Issue  qio's 
Go  leave  ast 


Only  do  a  rev  qio 
Go  issue  qio 
Go  leave  ast 


# 


DPMREM   MACRO  M1113   15-APR-8fl  10:05   PAGE  21 
TMOAST  —  TIMEOUT  AST, 


1100 
1101 
1102 
1103 
1104 
1105 
106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 

1117  007464 

1118  007464   004767 

1119  007470   011600 

1120  007472   010001 

1121  007474   000301 

1122  007476   042700 

1123  007502   042701 

1124  007506   012767   000020   170324 

1125  007514   004767 

1126  007520 

1127  007546 
1128 


.SBTTL   TMOAST 


TIMEOUT  AST, 


TMOAST 


COMMENTS : 

In  DLC  the  /TM  switch  is  used  to  set  a  timeout  value. 
When  the  network  acp  handshake  is  not  successful,  the 
acp  notifies  those  tasks  which  have  connections.  When 
this  timeout  ast  is  executed,  no  special  action  is 
taken  except  to  tell  the  user  what  has  happened. 


002166 


177400 
177400 
000020 
002222 


000167   000436 


STACK : 


(SP) 


Time  out  constant,  lun 


TMOAST : 

CALL 

SAVREG 

MOV 

{SP),R0 

MOV 

R0,R1 

SWAB 

Rl 

BIC 

#177400, R0 

BIC 

#177400, Rl 

MOV 

#LUN, OFFSET 

CALL 

SEARCH 

PRINTN 

#TM0ERR,<LINK(R5) ,Rl> 

JMP 

ASTEXI 

Save  regs  on  stack 

Get  -TMO  CON-, -lun-  from  stack 

Make  2nd  copy  of  data 

Bring  -TMO  CON-  into  low  byte 

Leave  just  -LUN- 

Leave  just  -TMO  CON- 

Look  for  lun  in  table 

Go  search  table 

Tell  user  of  timeout 

Go  to  common  ast  exit 
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PAGE  22 


DO 
I 


1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

007552 

1148 

807552 

004767 

002100 

1149 

007556 

011601 

1150 

007560 

010100 

1151 

007562 

000300 

1152 

007564 

042701 

177400 

1153 

007570 

042700 

177400 

1154 

007574 

012767 

000020   170236 

1155 

007602 

004767 

002134 

1156 

1157 

007606 

016765 

171560   000064 

1158 

007614 

1159 

007624 

010103 

1160 

007626 

062701 

000002 

1161 

007632 

006301 

1162 

007634 

016101 

005132' 

1163 

007640 

1164 

1165 

1166 

007660 

1167 

1168 

007706 

000167 

000276 

1169 

.SBTTL   DISAST  —  DISCONNECT  AST, 


DISAST 


COMMENTS: 

When 


STACK! 


a  break  in  the  connection  between  two  tasks 
is  severed,  the  acp  tries  to  notify  the  task  of 
this  separation.  This  ast  will  print  an  error 
message  and  then  try  to  reestablish  the  connection, 


(SP)  =  lun, Reason 

LUN     =  The  logical  unit  on  which  the  disconnect  occurred 

on  for  the  disconnect 


Save  regs  on  stack 
Get  -LUN-, -REASON-  from  stack 
Make  2nd  copy  of  data 
Put  -LUN-  into  lower  byte 
Cleanup  reg,  leave  -REASON- 
Cleanup  reg,  leave  -LUN- 
Setup  for  lun  search 
Go  search  table 

Indicate  current  status 

Sign  extend  reason 

Save  reason  for  use  later 

Adjust  Reason  code 

Make  word  offset 

Get  err  msg  fron  table 

Print  appropiate  error  msg 


MRKT$S   #TRYEFN,TRYTIM,#SECNDS,#TRYAST   ;  Try  to  establish  conns  later 
JMP     ASTEXI  ;  Leave  through  common  ast  exit 


t 
; 

Reason   =  The  r 

;- 

DISAST: 

CALL 

SAVREG 

MOV 

(SP),R1 

MOV 

R1,R0 

SWAB 

R0 

SIC 

#177400, Rl 

BIC 

#177400, R0 

MOV 

#LUN, OFFSET 

CALL 

SEARCH 

MOV 

S.DIS,STAT1(R5) 

SEXT 

Rl 

MOV 

Rl,R3 

ADD 

#2,R1 

ASL 

Rl 

MOV 

RSNTBL(Rl) ,R1 

PRINTN 

R1,<LINK(R5) > 
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00 
I 


1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 

1191  007712 

1192  007712 

1193  007716 

1194  007720 
1195 

1196  007724 

1197  007732 
1198 

1199  007736 
1200 

1201  007764 

1202  007770 

1203  007772 

1204  007774 
1205 

1206 


.SBTTL   UNSAST  ~  UNSOLICITED  RiiCEIVE  AST 


>  + 


UNSAST 


COMMENTS : 


UNSAST: 


004767 
011601 
016600 

012767 
004767 


004767 
005726 
005726 


001740 

000002 

000020 
002004 


001720 


170106 


STACK: 


CALL 

MOV 

MOV 

MOV 
CALL 


If  the  program  was  not  ready  to  receive  a  buffer 
from  a  node,  then  this  ast  is  entered.  "Not  ready* 
means  that  there  was  no  lO.RCV  issued  to  accept 
this  data.  This  routine  just  notifies  the  user 
of  the  situation. 

Note:  Due  to  timing  when  the  program  is  in  the 
process  of  establishing  the  connections,  this 
routine  may  be  executed. 


(SP)  =  Number  of  bytes  in  transmit  attempt 
2(SP)  =  lun  for  unsolocitied  receive 


SAVREG 
(SP),R1 
2(SP) ,a0 

#LUN, OFFSET 
SEARCH 


PRINTN  #UNSERR,<LINK(R5) ,Rl> 

CALL  RESREG 

TST  (SP)+ 

TST  (SP)+ 
ASTX$S 


Save  registers  on  stack 
Get  byte  count  from  stack 
Get  lun  from  stack 

Setup  for  search  of  lun 
Go  search  table 

Tell  user  of  error 

Restore  registers 

Remove  byte  count  from  stack 

Remove  lun  from  stack 

Ast  exit 
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oc 


1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 


.SBTTL   TIMAST 


Time  ast 


010002 

010002   004767 

010006 


001650 


010020  012705  001564' 

010024  016703  167752 

010030 

010030  062765  000001 

010036  062705  000110 

010042 


010052   062767   000901 

010060 

010104   000167   000100 


000106 


167730 


;  TIMAST 

# 

I 
I 
i 
I 
t 

t 

j- 

TIMAST: 


Conments: 

This  routine  keeps  track  of  the  elapsed 
time  for  each  of  the  links. 


Outputs: 


l$i 


NOV 
NOV 

AOO 
ADD 


TET  in  each  link  entry  is  updated. 


CALL     SAVREG 
SETF$S   tTINEFN 


tLNKTBL,R5 
LNKCNT,R1 

ll,TET(R5) 
•LNKSIZ,R5 
R3,l$ 


ADD      #1,ETLRPT 

MRKT$S   ,tl,«SECNDS,tTIMAST 

JMP     .  ASTEXI 


;  Save  registers 

;  Okay  to  print  r.cw 

;  Point  to  link  table 
;  Number  entries  in  tbl 

;  Compute  TET  for  each  link 

;  Next  entry 

;  Loop  going  through  table 

;  Elapsed  time  since  last  report 
:  Set  timer 
;  Exit  ast  routine 


m 


m 
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1237 
1238 
1239 
1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269  010114   012705   001564' 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

128? 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 


J  TRYAST 


COMMENTS : 


Blfl\0 
010110 


010120 
010124 
010124 
010132 


TRYAST: 


004767   001542 


016703   167656 


026765 
001013 


171242   000064 


1$: 


THIS  AST  WILL  ATTEMPT  TO  CONNECT 

THOSE  LINKS  WHICH  HAVE  BECOME  DISCONNECTED. 

THIS  ROUTINE  IS  STARTED  UP  IN  CONAST. 

THE  SEQUENCE  OF  EVENTS  IS  AS  FOLLOWS: 

1)  CONNECTIONS  ARE  ACTIVE,  AND  EVERYONE  IS  HAPPY. 

2)  THE  OBJECT  TASK  EXITS,  DIES  OR  SOMEHOW 
GOES  AWAY. 

3)  The  disast  routine  is  executed,  and  sets  a 
nark  time  so  we  can  try  at  a  later  tine 

to  establish  a  connection  again. 

4)  TRYAST  executes  and  looks  through  the  link  table 
for  a  entry  with  a  status  of  'DIS'.  If  the  entry 

is  not  connected,  then  we  check  to  see  if  the  remote 
has  any  pending  connections  for  us.  If  so  we  then 
issue  a  connect  request. 

5)  IF  THE  CONNECT  FAILS  AGAIN,  THEN  THE  CYCLE 
IS  REPEATED  AGAIN  AT  STEP  4.  THIS  CONTINUES 
FOREVER  OR  UNTIL  A  CONNECTION  IS  MADt . 


2$: 
3ft 


CALL 

MOV 

MOV 

CMP 
BNE 

.IF 
MOV 
MOV 

MOV 

CLRB 

DIR$ 

CMPB 

BEQ 

CMPB 

BEQ 

SEXT 

PRINTN 

EXIT$S 

TSTB 
BNE 


SAVREG 

tLNKTBL,R5 

LNKCNT,R3 

S.DIS,STAT1(R5) 
5$ 

DF  $HOST 

LUN(R5) ,GRNDPB+Q.IOLU 

N0DNAM(R5) ,GRNDPB+Q. IOPL+4 

NODNAM+2(R5) ,GRNDPB+Q. IOPL+6 

GRNBUF-l-11 

tGRNDPB 

GIOSB,|IS.SUC 

2$ 

GIOSB,«IE.NNN 

3$ 

GIOSB 

«ERR5,<GI0SB> 


GRNBUF-fll 
4$ 


MRKT$S   #TRYEFN ,TRyTIM , iSECNDS , »TRYAST 


;  SAVE  REGISTERS 

;  POINT  TO  LINK  TABLE 

;  NUMBER  OF  ENTRIES 


DISCONNECTED  ??? 
BRANCH  IF  MOT 

Remote  does  not  have  lO.GRN 

Setup  lun  in  DPB 

Setup  node  name  part  tl 

Setup  node  name  part  #2 

Reset  remote  pnd  count 

Get  information 

Good  ??? 

Branch  if  okay 

Node  not  up  yet  ??? 

Branch  if  not  up 


Exit 

Pnd's  from  other  end  ??? 
Branch  if  yes 

Try  later 
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00 

I 

o 


1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 


010134 
010134 
010156 
010162 
010162 
010166 


004767   000352 


062705   000110 


010176   042767   000100   167622 
010204   000167   000000 


4$! 


5$; 


6$: 


BR 
.ENDC 


6$ 


$HOST 


PRINTN  tMSG9,<LINK(R5) > 

CALL  CONSUB 

ADD  tLNKSIZ,R5 

SOB  R3,l$ 

BIC  iTRYFLCTSKFLG 

JMP  ASTEXI 


Exit  ast 
Only  for  host 

Tell  user 

ATTEMPT  TO  RECONNECT 

INCREMENT  TO  NEXT  ENTRY 
LOOP  GOING  THROUGH  TABLE 

FINISHED  RECONNECT  ATTEMPT 
LEAVE  THROUGH  COMMON  EXIT 
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s 


1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 


010210  004767   001474 

010214  042767   000006   167604 

010222  005726 

010224 


.SBTTL   ASTEXI  ~  COMMON  AST  EXIT 


»  + 


ASTEXI 


COMMENTS : 

This  section  of  code  serves  as  a  common  exit 
point  for  ast's.  The  registers  are  restored, 
some  flags  are  cleared,  and  the  address  of  the 
iosb  is  removed  from  the  stack. 


ASTEXI:  CALL 
BIC 
TST 
ASTX$S 


RESREG 

#RCVBIT+XMTBIT,TSKFLG 
(SP)  + 


;  RESTORE  REGISTERS  FROM  STACK 

;  REMOVE  IOSB  ADDR  FROM  STACK 
;  LEAVE  ASTX$S 


t 
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1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 


010232 
010232 
010240 

010242 
010312 
010314 
019336 
010356 

010360 
010366 

010372 
010400 
010402 
010452 
010454 
010476 
010516 

010520 
010526 


.SBTTL   RCVXMT  —  ISSUE  RCV,  XMT  QIO'S  ON  FLAG  SETTING 


>  + 


RCVXMT 


COMMENTS : 


The  RCVXMT  serves  as  a  common  routine 
where  10. RCV  &  10. XMT  qio's  are  issued. 
Notice  that  the  RCV  qio  is  issued  first. 
This  is  done  so  that  a  RCV  request  will 
always  be  outstanding,  thus  making  sure 
that  the  UNSAST  (unsolicited  receive) 
should  not  be  entered. 


INPUTS: 


R5  "   Link  table  entry 

TSKFLG  -  RCVBIT  and/or  XMTBIT  set 


OUTPUTS: 


RCVXMT : 


032767   000002 
001454 


103022 


167566 


000465 

016765 
005265 

032767 
001454 

103022 


171010 
000070 


000C66   1$: 


000004   167426   2$: 


000405 

016765   170652 
005265   000072 


010532   000207 


000066   3$: 


4$; 


BIT 
BEQ 

QIO$S 

BCC 

PRINTN 

DBLADD 

BR 

MOV 
INC 

BIT 

BEQ 

QIO$S 

BCC 

PRINTN 

DBLADD 

BR 

MOV 
INC 

RETURN 


When  the  rev  qio  completes,  the  RCVAST 
is  entered. 

When  the  xmt  qio  completes,  the  XMTAST 
is  entered. 

The  number  of  rev  6  xmt  qio's  are  counted. 

And  status  #2  is  changed  to  reflect  the 
last  qio  issued. 


IRCVBIT, TSKFLG 
2$ 


;  Issue  rev  qio  ??? 

;  Branch  if  no  rev  to  issued 


#I0.RCV,LUN(R5) , , ,RI0SB(R5) , #RCVAST, <RBUFFR(R5) , #K1> 
1$  ;  Branch  if  no  errors 

#RCVER2,<$DSW>  ;  Tell  user  of  error 

»1,ERRCNT(R5)  J  Count  error 

4$  ;  Exit  routine 


S.RCV,STAT2(R5) 
I0RCV(R5) 


;  Set  status  for  display 
;  Count  10. RCV 's  issued 


4XMTBIT, TSKFLG  ;  Issue  xmt  qio  ??? 

4$  ;  Branch  if  not 
#I0.XMT,LUN(R5f , , ,XI0SB(R5) , fXMTAST, <#BUFFR{R5) ,XFRSIZ> 

3$  ;  Branch  if  no  errors 

«XMTER2,<$DSW>  ;  Tell  user  of  xmt  error 

il,ERRCNT(R5)  ;  Count  error 

4$  ;  Exit  routine 


S.XMT,STAT2(R5) 
I0XMT(R5) 


;  Set  status  for  display 
;  Count  10. XMT 's  issued 

;  Leave  subroutine 


z 

CM 
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1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 

1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 


010534 

010534   026765   170632 

010542   001056 


000064 


010544  016765   170620   000064 

010552  016567   000102   171444 

010560  016567   000104   171440 

010566 

010636  103015 

010640 

010670  000403 


010672   016765 
010700   000207 


170470   000066 


.SBTTL   CONSUB  --  ISSUE  10. CON  FOR  A  LUN 


CONSUB 


; 
J 
} 
} 
; 

CONSUB I 


1$: 
2$t 


COMMENTS 
INPUT: 
OUTPUT : 


Issue  the  connect  request. 
R5  *   Link  table  entry 

Status  #1  is  changed  to  PENDING. 
Status  #2  is  changed  to  CONNECT. 

The  CONAST  is  entered  when  the  connection 
is  complete. 


CMP  S.DIS.STATl (R5) 

BNE  2$ 

MOV  S.PND,STAT1 (R5) 

MOV  NODNAM ( R5 ) , CONBLK 

MOV  NODNAM+2 (R5) ,C0NBLK+2 


;  Disconnected  ??? 

;  Broich  if  link  still  connected 

;  Set  status  to  pending 

;  Set  node  name  in  connect  blocit 

;  Set  node  name  in  connect  bloc* 


#IO.CON,LUN(R5),,,C10SB(R5),#CONAST,<#CONBLK,#CONSIZ> 
1$  :  Branch  if  no  errors 

PRINTN   #C0NER1,<LINK(R5) ,$DSW>  ;  Print  error  message 

BK      2$  f  Branch  over  status  changes 


QIO$S 
BCC 


MOV      S.CON,STAT2(R5) 
RETURN 


;  Last  qio  issued  'CON' 
;  Leave  subroutine 
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CD 


1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 


010702 
010702 
010710 
010716 
010720 
010756 
010764 

010766 
010772 
010776 

011002 
011004 
011006 
011030 
011036 

011040 


052767 
027575 
001423 

042767 
000431 

016501 
016502 
017503 

122122 
001415 

042767 
000404 


.SBTTL   CMPBUF  —  COMPARE  XMT'D  TO  RCV'D  BUFFERS,  REPORT  ERRS 


;  + 


CMPBUF 


COMMENTS : 


INPUT: 


OUTPUT: 


CMPBUF: 


000200 
000006 


167116 
000012 


000200   167042 


000014 
000016 
000006 


000200   166770 


1$: 


2$: 


011050   000207 


3$: 
4$: 


BIS 

CMP 

BEQ 

PRINTN 

BIC 

BR 

MOV 
MOV 
MOV 

CMPB 

BEQ 

PRINTN 

BIC 

BR 

SOB 

RETURN 


This  subroutine  compares  the  rcv'd  w/  the  xmt'd 
buffer,  to  see  if  any  data  corruption  has  occurred 
during  transmission.  If  buffers  are  equal  then  the 
routine  simply  returns  to  the  caller.  If  they  are 
not  equal,  then  an  error  message  is  printed. 


R5  =  Address  to  entry  in  link  table 


An  error  message  if  buffers  not  equal 

R0  -  R3  Changed 
R4  -  R5  Preserved 


#SUCCES,TSKFLG 

§RIOSB+2(R5) ,§XIOSB+2(R5) 

1$ 

«ERR1,<#RI0SB+2(R5) , §XI0SB+2 (R5 ) 

iSUCCES,TSKFLG 

4$ 

RBUFFR(R5) ,R1 
XBUFFR(R5) ,R2 
eRIOSB+2{R5) ,R3 

(Rl)+, (R2)+ 

3$ 

#ERR2,  XINK(R5)  > 

#SUCCES,TSKFLG 

4$ 

R3,2$ 


Assume  successful  compare 
Rev  &  xmt  size's  equal  ??? 
Branch  if  they  are 
LINK(R5)>  ;  Error,  tell  user 
Bad  data 
Exit  routine 

Point  to  rev  buffer 
Point  to  xmt  buffer 
Get  byte  count 

Buffers  equal  ??? 
Branch  if  so 
Not  equal,  tell  user 
Bad  data,  failure 
Exit  routine 

;  Loop,  comparing  all  values 

;  Leave  subroutine 
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I 


1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

011052 

1487 

011052 

004767 

000000G 

1488 

011056 

016501 

000016 

1489 

011062 

016702 

166736 

1490 

011066 

001013 

1491 

1492 

011070 

012703 

001276' 

149? 

011074 

066703 

166722 

1494 

011100 

011302 

1495 

011102 

062767 

000002   166712 

1496 

011110 

042767 

177740   166704 

1497 

1498 

011116 

010267 

166706 

1499 

011122 

116521 

000020 

1500 

011126 

005302 

ISfl 

011130 

003410 

1502 

011132 

016503 

000020 

1503 

011136 

l?-^'l 

1504 

011140 

005-  i 

1505 

011142 

1506 

1507 

011152 

000207 

1508 

.SBTTL   GENBUF  —  GENERATE  TRANSMIT  BUFFER 


GENBUF 


COMMENTS : 


I 
t 
i 
t 
I 
1 
1 

GENBUF; 


INPUT: 


OUTPUT ! 


1«( 


2$} 


3$: 


This  routine  generates  a  buffer  to  be  used 
in  a  transmit  qio.  The  size  of  the  buffer 
is  determined  by  BYTCNT.  If  BV  CNT  =  0 
then  a  size  value  is  used  from  a  psuedo- 
random  list. 


R5  »  Address  of  entry  in  link  table 

A  new  buffer  filled  with  data  in  XBUFFR(R5) 
R0  -  R5  Preserved 


CALL 

$SAVAL 

MOV 

XBUFFR(R5) ,Rl 

MOV 

BYTCNT, R2 

BNE 

1$ 

MOV 

#LIST,R3 

ADD 

LSTIDX,R3 

MOV 

(R3),R2 

ADD 

«2,LSTIDX 

BIC 

#177740, LSTIDX 

MOV 

R2,XFRSIZ 

NOVB 

LUN(R5), (Rl)+ 

DEC 

R2 

BLE 

3$ 

MOV 

LUN(R5) ,R3 

NOVB 

R3, (Rl)+ 

DEC 

R3 

SOB 

R2,2$ 

RETURN 

Get  address  to  xmt  buffer 

Get  size  of  buff  to  be  xmitted 

Branch  if  not  equvnl  zero 

BYTCNT  ■  0,  size  in  random  list 

Add  in  current  index 

Get  a  size  from  random  list 

Index  »  index  +  2 

Wrap  index  around 

Save  for  -RCVXMT-  routine 

Make  data  unique 

Adjust  count 

Branch  if  done 

Reset  data  for  buffer 

Gen  new  transmit  buffer 

Make  a  different  piece  of  data 

Loop  until  all  done 

Leave  subroutine 
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>  + 

« 

;  ASK 


1510 

1511 

1512 

1513 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 

1523 

1524 

1525 

1526 

1527 

1528 

1529 

1530 

011154 

1531 

011154 

012701 

000300' 

1532 

011160 

012700 

000144 

1533 

£11164 

105021 

1534 

011166 

1535 

1536 

011176 

1537 

1538 

011204 

012767 

000300'  170256 

1539 

011212 

012767 

000144   170252 

1540 

011220 

1541 

011226 

103014 

1542 

011230 

1543 

011252 

1544 

011260 

1545 

011260 

122767 

000000G  170116 

1546 

011266 

001403 

1547 

011270 

1548 

011276 

1549 

011276 

016700 

170166 

1550 

011302 

016701 

170156 

1551 

011306 

016101 

000002 

1552 

011312 

000207 

1553 

.LBTTL   ASK 


—  ASK  A  QUESTION  t  GET  A  ANSWER 


COMMENTS : 


INPUTS : 


The  question  is  iisplayed  on  the  terminal 
a  reply  is  asked  for.  Input  is  returned 
in  a  buffer  pointed  to  by  Rl.  If  control  Z 
is  input  then  the  task  exits. 


The  question  to  be  asked  should  be 
setup  in  PRTDPB. 


OUTPUTS ! 


ASK: 


1$! 


2$! 


3$i 


MOV 
MOV 
CLRB 
SOB 

DIR$ 

MOV 

MOV 

DIR$ 

BCC 

PRINTN 

EXIT$S 

CMPB 

BEQ 

EXIT$S 

MOV 
MOV 
MOV 
RETURN 


R0  «  Address  of  answer  buffer 
Rl  *   Length  of  answer  in  bytes 


tINBUFF,Rl 
•INSIZ,R0 
(Rl)  + 
R0,1$ 

tPRTDPB 

#INBUFF, <INPUT+Q. IOPL> 

#INSIZ , <INPUT+Q. I0PL+2> 

tINPUT 

2$ 

*ERR4,<$DSW> 


tlS.SUC.IIOSB 
3$ 


<INPUT+Q.IOPL>,R0 
<INPUT+Q.I0SB>,R1 
2(R1) ,R1 


;  Point  to  a  buffer 

;  Get  size  of  buffer 

;  Reset  all  locations 

;  Loop  until  all  done 

;  Print  question 

Answer  to  go  here 
Size  of  answer  buffer 
Input  answer  to  question 
Branch  if  no  errors 
Print  error  code 
Exit  task 

Success  ??? 

Branch  if  good 

Exit  task  if  EOF  or  error 

Return  address  of  answer  in  R0 
Get  address  of  iosb 
Get  size  of  answer 
Leave  subroutine 
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CO 
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1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

011314 

1574 

011314 

1575 

011320 

012700 

000444' 

1576 

011324 

012702 

000240' 

1577 

011330 

004767 

000000G 

1578 

011334 

012767 

000444' 

170076 

1579 

011342 

010167 

170074 

1580 

011346 

012767 

000040 

170070 

1581 

1582 

011354 

1583 

011362 

103004 

1584 

011364 

022767 

000000G 

000000G 

1585 

011372 

001770 

1586 

1587 

011374 

1588 

011400 

000207 

1589 

.SBTTL   PRTSUB  ~  PRINT  SUBROUTINE  FOR  AST'S,  EDITS  MESSAGE 


FRTSUB 


COMMENTS ; 


INPUT: 


Called  by  the  macro  'PRINTN'  to  format  and 
print  a  line  of  ascii  chars. 

Rl  «  Address  of  ascii  format  chars 


OUTPUTS ; 


Message  printed  on  TI: 
R0  -  R5  Preserved 


PRTSUB: 

PUSH 

<R0,R2> 

MOV 

iPRTBUF,R0 

MOV 

tPLIST2,R2 

CALL 

$EDMSG 

MOV 

#PRTBUF , <PRTDPB+Q . IOPL> 

MOV 

Rl , <PRTDPB+Q. I0PL+2> 

MOV 

#40 , <PRTDPB+Q. I0PL+4> 

1$: 

DIR$ 

tPRTDPB 

BCC 

2$ 

CMP 

|IE.UPN,$DSW 

BEQ 

1$ 

2$: 

POP 
RETURN 

<R2,R0> 

Save  on  stack  (Rl  already  saved) 

Point  to  print  buffer 

Point  to  arg  blk 

Format  message 

Put  addr  of  msg  in  qio 

Put  size  in  bytes  in  qio 

Vertical  format  control 

Print  message 
Branch  if  no  errors 
Insufficient  dynamic  storage 
Try  again 

Restore  regs 
Leave  subroutine 
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1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

16B0 

1601 

1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 

1611 

011402 

1612 

011402 

004767 

000000G 

1613 

011406 

012700 

000610' 

1614 

011412 

012701 

002650' 

1615 

011416 

016502 

000024 

1616 

011422 

004767 

000000G 

1617 

1618 

011426 

010004 

1619 

011430 

010167 

166360 

1620 

011434 

010267 

166352 

1621 

1622 

011440 

012703 

000006 

1623 

1624 

011444 

005005 

1625 

011446 

012700 

000050' 

1626 

011452 

017701 

166334 

1627 

011456 

005002 

1628 

011460 

004775 

001336' 

1629 

011464 

112710 

000000 

1630 

1631 

011470 

012700 

000050' 

1632 

011474 

010401 

1633 

011476 

016502 

001352' 

1634 

011502 

004767 

000040 

1635 

1636 

011506 

066567 

001352'  166300 

1637 

011514 

062767 

000002   166270 

1638 

011522 

010104 

1639 

011524 

062705 

000002 

1640 

1641 

011530 

1642 

1643 

011540 

004767 

000144 

1644 

011544 

000207 

1645 

1646 

.SBTTL   EDTSUB  —  FORMAT  REPORT  MESSAGE,  NUMBERS  RIGHT  JUSTIFIED 


;  + 


EDTSUB 


COMMENTS: 


Since  'JEDMSG'  does  not  handle  right  justifying, 

this  routine  was  writ -en  to  use  a  combination  of  '$EDMSG' 

and  'RJUST'  routines  to  nicely  format  the  report  output  line. 


INPUT: 


R5  ^   Address  into  link  table  entry 


OUTPUTS ; 


ormatted  report  message  in  -RPTBUF-,  with 
length  in  -RPTLEN-. 

R0-R5  Preserved 


EDTSUB: 

CALL 

$SAVAL 

MOV 

tRPTBUF,R0 

MOV 

#RPTF0R,R1 

MOV 

PLIST(R5) ,R2 

CALL 

$EDMSG 

MOV 

R0,R4 

MOV 

R1,RPTLEN 

MOV 

R2,PLADR 

MOV 

#6.,R3 

CLR 

R5 

1$:      MOV 

tEDTBUF,R0 

MOV 

@PLADR,Rl 

CLR 

R2 

CALL 

§EDTBL1(R5) 

MOVB 

#0,(R0) 

MOV 

«EDTBUF,R0 

MOV 

R4,R1 

MOV 

EDTBL2(R5) , R2 

CALL 

RJUST 

ADD 

EDTBL2{R5) , RPTLEN 

ADD 

«2,PLADR 

MOV 

R1,R4 

ADD 

i2,R5 

SOB 

R3,l$ 

CALL 

RESREG 

RETURN 

Save  regs  on  stack 

Point  to  report  buffer 

Point  to  report  format 

Get  arg  blk  addr  from  link  table 

Format  message 

Save  addr  for  following  loop 
Need  reg,  save  length  here 
Need  reg,  save  arg  blk  addr 

Insert  9.  numbers  in  line 

Reset  offset 

Point  to  temp  buffer 

Get  next  item  from  arg  blk 

Zero  suppression 

Convert  number 

Insert  non-printing  char 

roint  to  temp  buffer 
Address  to  output  buffer 
Get  field  size  from  table 
Right  justify  ascii  string 

Compute  new  report  length 
Point  to  next  item  in  arg  blk 
Save  out  buf  addr  for  next  tim 
Inc  offset  for  tables 

Loop  until  all  done 

Restore  regs 
Leave  subroutine 
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1648 

1649 

1650 

1651 

1652 

1653 

1654 

1655 

1656 

1657 

1658 

1659 

1660 

1661 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 

1687 

1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 

1697 

1698 

1699 

1700 


011546 
011546 

011552 
011554 
011556 
011560 
011564 

011574 
011576 
011602 
011604 
011610 
011612 
011616 
011620 
011622 
011624 

011626 
011630 
011632 

011634 
011636 
011640 
011642 

011652 
011654 


010104 
121027 
001406 
121027 
103406 
121027 
101003 
005202 
005200 
000764 

020203 
003401 
010302 

005702 
001405 
114041 


010401 
000207 


.SBTTL   RJUST   —  RIGHT  JUSTIFY  AN  ASCII  STRING  IN  A  FIELD 


RJUST 


COMMENTS ! 


INPUTS! 


This  routine  right  justifies  a  number  that  was 

converted  to  ascii  in  a  N  size  field.  The  field  is  filled 

with  blanks. 


R0  =  Input  ascii  string  address 
Rl  =  Output  buffer  address 
R2  »  Field  size 


OUTPUTS  1 


RJUST: 


004567   000000G 

010203 
005702 
001436 
112721   000040 


000055 


000060 


000071 


1$! 


2$! 

3$i 


4$: 
5$: 

6$! 

7$! 


8$i 

9$! 


R0  *   Destroyed 

Rl  *   Next  available  output  address 

R2  "  Destroyed 

R3,R4,R5  "  Preserved 


JSR 

R5,$SAVRG 

MOV 

R2,R3 

TST 

R2 

BEQ 

9$ 

MOVB 

#'  .(Rl)+ 

SOB 

R2,l$ 

MOV 

R1,R4 

CMPB 

(R0),i'- 

BEQ 

4$ 

CMPB 

{R0),i'0 

BLO 

5$ 

CMPB 

(R0),«'9 

BHI 

5$ 

INC 

R2 

INC 

R0 

BR 

3$ 

CMP 

R2,R3 

BLE 

6$ 

MOV 

R3,R2 

TST 

R2 

BEQ 

8$ 

MOVB 

-(R0),-(R1) 

SOB 

R2,7$ 

MOV 

R4,R1 

RETURN 

Save  field  size  for  later  use 

Field  size  equal  to  0  ??? 

Branch  if  so 

Fill  field  with  blanks 

Loop  until  field  filled  w/  blanks 

Sav  addr  to  next  byte  after  field 

Is  a  minus  sign  in  input  string  ??? 

Branch  if  so 

Is  char  not  a  ascii  num  ??? 

Br  if  not  ascii  number 

Char  past  ascii  9  ??? 

Yep  ! ! ! 

Count  chars  in  ascii  num  string 

Point  to  next  char  in  string 

Loop  until  end-of-string 

(ascii  stringj  >  [field]  ??? 

Br  if  not 

Copy  only  asc  str  size 


;  Count  =  0  ??? 

;  Br  if  so 

;  Copy  [ascii  string] 

;  Loop  until  all  done 


->  [field] 


Return  addr  to  next  empty  byte 
Leave  subroutine 
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1702 

1703 

1704 

1705 

1706 

1707 

011656 

010067 

166402 

1708 

011662 

010167 

166400 

1709 

011666 

010267 

166376 

1710 

011672 

010367 

166374 

1711 

011676 

010467 

166372 

1712 

011702 

010567 

166370 

1713 

011706 

000207 

1714 

1715 

1716 

1717 

1718 

1719 

1720 

011710 

1721 

011710 

016700 

166350 

1722 

011714 

016701 

166346 

1723 

011720 

016702 

166344 

1724 

011724 

016703 

166342 

1725 

011730 

016704 

166340 

1726 

011734 

016705 

166336 

1727 

011740 

000207 

1728 

.SBTTL   SAVREG 


SAVE  GPR'S 


>  + 


;  SAVREG 

SAVREG : 

MOV 

R0,SAVBUF 

MOV 

Rl,SAVBUF+2 

MOV 

R?,SAVBUF+4 

MOV 

R3,SAVBUF+6 

MOV 

R4,SAVBUF+10 

MOV 

R5,SAVBUF+12 

RETURN 

.SBTTL 

RESREG  —  REi 

1* 

;  RESREG 

;- 

RESREG: 

MOV 

SAVBUF,R0 

MOV 

SAVBUF+2,R1 

MOV 

SAVBUF+4,R2 

MOV 

SAVBUF+6,R3 

MOV 

SAVBUF+10,R4 

MOV 

SAVBUF+12,R5 

RETURN 
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00 
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1730 

1731 

1732 

1733 

1734 

1735 

1736 

1737 

1738 

1739 

1740 

1741 

1742 

1743 

1744 

1745 

1746 

1747 

1748 

1749 

1750 

1751 

1752 

1753 

1754 

1755 

011742 

1756 

011742 

1757 

1758 

011746 

016701 

166030 

1759 

011752 

012705 

001564' 

17SB 

011756 

010504 

1761 

011760 

066704 

166054 

1762 

011764 

020014 

1763 

011766 

001427 

1764 

011770 

062705 

000110 

1765 

011774 

1766 

012604 

016702 

166030 

1767 

012010 

1768 

012040 

1169 

1770 

012046 

1771 

012052 

000207 

1772 

1773 

005500' 

.SBTTL  SEARCH  —  For  lun's  and  iosb  addresses  in  link  table 


Search 


Coaments! 


Inputs; 


Output: 


The  routine  searchs  the  link  table  for 
a  Batching  lun  or  iosb  address. 
Used  upon  entry  to  ast's. 


R0  -  lun  or  iosb  address  to  be  searched  foe 

Offset   -  Offset  into  entry  block  (lun  or  iosb  address) 


R0  =  lun  or  iosb  address  (Same  as  input) 

R5  *   Points  to  link  entry  with  Hatching 

lun  or  iosb  address 

Rl,R2,R3,R4  ■  Unchanged 

Error  actions: 

If  no  match  is  found  in  the  table  then 

an  error  message  is  printed  on  the  terminal 

and  the  task  exits. 


SEARCH : 

PUSH 

<R1,R4> 

MOV 

LNKCNTjIll 

MOV 

tLNKTBL,R5 

1$: 

MOV 

R5,R4 

ADD 

OFFSET, R4 

CMP 

Rfl,{R4) 

BEQ 

2$ 

ADD 

tLNKSIZ,R5 

SOB 

Rl,l$ 

MOV 

OFFSET, R2 

PRINT 

#ERR3,#ERR3L 

EXIT$S 

2$i 

POP 
RETURN 

<R4,R1> 

;  Save  registers 

Get  number  of  connections 
Point  to  top  of  link  table 
Make  copy  of  link  table  address 
Compute  addr  of  lun  or  iosb  in  entry 
Matching  lun  or  iosb  addr  ??? 
Branch  if  match 
Compute  next  entry  addr 
Loop  searching  table 

;  Something  is  wrong  ?????????????????? 
;  Exit  task 

;  Restore  saved  registers 
;  Leave  subroutine 


END 


START 
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ACTBIT= 

000002 

GRNBUF 

001264R 

MSG0 

002667R 

RIOSB  = 

000004 

TMOERR 

0e4716R 

ACT  2 

005536R 

GRNDPB 

001534R 

MSG0L  = 

000007 

RIP 

003607R 

TMRBIT= 

000010 

ALNERR 

004556R 

GRNEFN= 

000007 

MSGl 

002676R 

RIPL   = 

000021 

TOTBPS 

000032R 

ASK 

011154R 

G.TICP= 

000016 

MSG10 

003464R 

RJUST 

011546R 

TRYAST 

010110R 

ASTEXI 

010210R 

G.TICT= 

000014 

MSGll 

003470R 

RMSG.l 

005214R 

TRYEFN= 

000002 

BCKGND 

006030R 

G.TIDA= 

000004 

MSG11L= 

000031 

RMSG . 2 

005150R 

TRYFLG= 

000100 

BIT 

000020R 

G.TIHR= 

000006 

nSG12 

003521R 

RMSGl 

fi05254R 

TRYTIM 

000006R 

BUFSIZ= 

002000 

G.TIMI= 

000010 

MSG12L= 

000030 

RMSG  2 

005313R 

TSKFLG 

000026R 

BYTCNT 

000024R 

G.TIMO= 

000002 

MSGl  3 

003551R 

RMSG  3 

005350R 

UNSAST 

007712R 

BYTSRX= 

000056 

G.TISC= 

000012 

MSG2 

002727R 

RMSG  4 

005426R 

UNSERR 

004775R 

CHAR 

000036R 

G.TIYR= 

000000 

MSG3 

002774R 

RPORTL= 

000305 

WTEFN  = 

000004 

CIOSB  = 

000000 

IE.NNN= 

******  Gx 

MSG4 

003042R 

RPORTl 

002305R 

XBUFFR= 

000016 

CMPBUF 

0ie702R 

IE.UPN= 

******  GX 

MSG5 

003115R 

RPTBUF 

000610R 

XFRSIZ 

000030R 

CONAST 

007174R 

IIOSB 

001404R 

MSG6 

003201R 

RPTDPB 

001504K 

XIOSB  = 

000010 

CONBLK 

002224R 

INBUFF 

000300R 

MSG6L  = 

000162 

RPTEFN= 

000005 

XMTAST 

007010R 

CONERl 

004614R 

INPUT 

001454R 

MSG7 

003363R 

RPTFOR 

002650R 

XMTBIT= 

000004 

C0NER2 

004655R 

INSIZ  = 

000144 

MSG8 

003403R 

RPTF2 

002612R 

XMTCNT= 

000032 

C0NSIZ= 

000020 

lORCV  = 

000070 

MSG8L  = 

000024 

RPTLEN 

000014R 

XMTERl 

004274R 

CONSUB 

010534R 

lOSB 

001414R 

MSG9 

003427R 

PSNTBL 

005132R 

XMTER2 

004350R 

COUNTR 

000034R 

lOXMT  = 

000072 

NN 

002244R 

U.ACP  = 

000002 

XMTSAV= 

0C.^046 

CR 

000015 

IO.CON= 

******  GX 

NODCNT 

000000R 

R.CLSD= 

000003 

$BYTCN= 

00^000 

DEFBYT= 

002000 

IO.GRN= 

******  GX 

NODNAM= 

000102 

R.DEAD= 

000004 

$CBDMG= 

******  GX 

DEFDIS= 

000001 

IO.RCV= 

******  GX 

OFFSET 

000040R 

R.LDIS= 

000001 

$CDDMG= 

******  GX 

DEFLPN= 

000004 

IO.RVB= 

******  GX 

PIOSB 

001400R 

R.OABO= 

177776 

$DSW  '^ 

******  GX 

DEFSEC= 

000012 

IO.WVB= 

******  GX 

PLADR 

000012R 

R.ODIS= 

177777 

$EDMSG= 

******  GX 

DIOSB 

001410R 

IO.XMT= 

******  GX 

PLIST  = 

000024 

SAVBUF 

000264R 

$LPERN= 

000004 

CO 

DISAST 

007552R 

IS.SUC= 

******  GX 

PLISTl 

000214R 

SAVREG 

011656R 

$NODCN= 

000001 

1 

DISEFN= 

000006 

Kl 

002000 

PLIST2 

000240R 

SEARCH 

011742R 

$REMOT= 

000000 

NJ 

DISERl 

004424R 

LF 

000012 

PRTBUF 

000444R 

SECNDS= 

000002 

$RPORT= 

000020 

DISER2 

004501R 

LINK   = 

000062 

PRTDPB 

001424R 

START 

005500R 

$SAVAL= 

******  GX 

DPMLUN= 

000002 

LIST 

001276R 

PRrSUB 

011314R 

STATl  = 

000064 

$SAVRG= 

******  GX 

EDTBLl 

001336R 

LNKCNT 

000002R 

Q.IOAE= 

000012 

STAT2  = 

000066 

$TIMCN= 

000454 

EDTBL2 

001352R 

LNKSIZ= 

000110 

Q.IOEF= 

000006 

SUCCES= 

000200 

$TOTLK= 

000004 

EDTBUF 

000050R 

LNKTBL 

001564R 

Q.IOFN= 

000002 

S.CON 

001366R 

3$$ARG= 

000002 

EDTSUB 

011402R 

LPERN 

000016R 

Q.IOLU= 

000004 

S.DIS 

001372R 

$$$OST= 

0»0020 

ERRCNT= 

000036 

LSTCHR= 

000040 

Q.IOPL= 

000014 

S.PND 

001370R 

.$$.   = 

000002 

ERRCOD 

000046R 

LSTDSW= 

000074 

Q.IOPR= 

000007 

S.RCV 

001374R 

.$$.1  = 

014360R 

002 

ERRSAV= 

000052 

LSTIDX 

000022R 

Q.IOSB= 

000010 

S.XMT 

001376R 

.$$.10= 

020456R 

002 

ERRl 

003630R 

LSTRSB= 

000076 

RBUFFR= 

000014 

TEMP 

000042R 

.$$.11= 

020462R 

002 

ERR2 

003706R 

LSTXSB= 

000100 

RCVAST 

006514R 

TET 

000106 

.$$.12= 

020466R 

002 

ERR3 

003761R 

LUN 

000020 

RCVBIT= 

000002 

TIEFN  = 

000001 

.$$.2  = 

014374R 

002 

ERR3L  = 

000064 

MASSLV= 

000400 

RCVCNT= 

000026 

TILUN  = 

000001 

.$$.3  = 

016374R 

002 

ERR4 

004045R 

MAXBYT= 

002000 

RCVERl 

004146k 

T I MAST 

010002R 

.$$.4  = 

020374R 

002 

ERR5 

004103R 

MAXDIS= 

000005 

RCVER2 

004221R 

TIMCNT 

000004R 

.$$.5  = 

020432R 

002 

ETLRPT 

000010R 

MAXLPN= 

000004 

RCVSAV= 

000042 

TIMEFN= 

000003 

.$$.6  = 

020436R 

002 

FLAG   = 

000022 

MAXLUN= 

000020 

RCVXMT 

010232R 

TITLE 

002250R 

.$$.7  = 

020442R 

002 

GENBUF 

011052R 

MAXSEC= 

007020 

REPORT= 

000020 

TITLEL= 

000035 

.$$.8  = 

020446R 

002 

GIOSB 

001420R 

MSBIT  = 

000001 

RESREG 

011710R 

TMOAST 

007464R 

.$$.9  = 

020452R 

002 

.  ABS. 

000000 
012054 

000 
001 

$BUFFR 

020500 

002 

ERRORS 

DETECTED : 

0 

VIRTUAL  MEMORY  USED:   5401  WORDS   (  22  PAGES) 
DYNAMIC  MEMORY:   20230  WORDS   (  77  PAGES) 
ELAPSED  TIME:   00:01:48 
DPMREM , DPMREM/NOSP=EXAMPLE . SYM , EXAMPLE 
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DLC  SYNTAX  SUMMARY 


The  required  and  optional  switches  for  the  four  DLC  commands  are  shown  below.  Any  switch  not 
shown  with  a  specific  command  is  meaningless  for  that  command. 

BOOT: 

DLCrilcspec/BO:unum/NO:namc[/DIl(/-OP][/-VE][/TM:t][/RE:nl 

BOOT-IF: 

DLCrilespcc/BI:unum/NO:name[/-VEl[/TM:t][/RE:nl 

OPEN: 

DLC  /OP:unum/NO:name[/TM:tl 

CLOSE: 

DLC  /CL:unum/NO:namc 

The  meanings  of  the  switch  mnemonics  are  summarized  below: 

Switch        Meaning 

OP  Open 

CL  Close 

RE  Number  of  times  to  try  booting 

TM  Time-out  interval 

VE  Verify 

DI  Run  on-board  diagnostics 


C-1 
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FORTRAN  CALLS  AND  MACRO  DIRECTIVES 


D.l     FORTRAN  COMMAND  SYNTAX 

CALLNICONX(icnxblk[,iefnl[,ists][,tmong]) 

CALLNIDlSC(icnxblk[,iefn][,ists]) 

CALL  NIXMIT(icnxblk,idata,isize[,iefn][,ists]) 

CALL  NIXMIW(icnxblk,idata,isize,iefn[,istsl) 

CALLNIRCVD(icnxblk,ibuff,isize[,iefn][,ists]) 

CALLNIRCVW(icnxblk,ibuff,isize,iefn[,ists]) 

CALLNIRCVC(icnxblk,ibuff,isize[.icfnl[,ists]) 

CALL  NISINT(icnxblk,idata,isizc[,icfn][,!Sts]) 

CALL  NISINW(icnxblk,idata,isize,iefn[,ists]) 

CALLNIRCVI(icnxblk,ibuff,isize[,icfnl[,istsl) 


D.2    MACRO  COMMAND  SYNTAX 

QIO$  IO.CON,lun,..,<cntad,size> 

QIO$  IO.DIS,lun,.. 

QIO$  lO.XMT.lun <bufad,size> 

QIO$  IO.RCV,lun <bufad,size> 

QIO$  IO.XMI,lun <bufad,size> 

QIO$  lO.ABClun,... 

QIO$  IO.CRJ,lun,...,<cntad,sizc> 


I 
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ACP 

See  Ancillary  Control  Process. 

Address  (DECdataway) 

A  device  identifier  for  a  unit  on  the  DECdataway.  An  example  is  SB123:. 

Ancillary  Control  Process  (ACP) 

A  privileged  task  that  performs  logical  I/O  functions  at  a  level  between  the  user  task  and  the  phys- 
ical device  driver. 

See  Network  ACP,  Terminal  ACP. 


AST 


Asynchronous  System  Trap. 


ATS 


DPM-PLUS  Application  Terminal  Support.  Consists  of  the  ATS  Dispatcher  and  the  ATS  Terminal 
ACP.  Used  with  DPMOl/VTl  10-connccted  terminals. 


Attributes 


Characteristics  of  a  specific  terminal  or  device  attached  to  a  DPMOl  or  VTl  10  on  the  DECdata- 
way. These  characteristics  include  baud  rate,  parity,  number  of  bits  per  character,  etc. 


Base  Port 

The  lowest  port  on  a  DPMOl/VTl  10  or  a  DIS. 
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Broadcast  Channel 

Port  0  of  each  DECdataway  controller  is  called  the  broadcast  channel,  and  can  be  used  only  by 
the  DPM  system  software. 


Channel 

A  communication  path  between  the  host  and  a  remote. 

Connect  Block 

Eight-word  array  used  in  MACRO- 1 1  programs  to  specify  details  about  a  network  connection 
being  either  requested  or  rejected. 


Connection 

See  Logical  Connection. 


Connection  Status  Block 

A  32io  word  integer  array  used  in  FORTRAN  calls  to  the  network  software,  to  identify  a  con- 
nection. 


CRC 


Cyclic  Redundancy  Check. 


DECdataway 


The  communication  system  that  links  the  DPM  host  with  terminals  and  remote  computer  sub- 
systems. 

The  DECdataway  consists  of: 

1 .  A  multidrop  cable 

2.  A  DECdataway  controller  for  the  host  (ISB 1 1 ) 

3.  A  DECdataway  interface  in  each  remote  subsystem  (ISV 1 1 ) 

4.  A  DECdataway  interface  incorporated  into  terminals  (RT801,  RT803,  RT805)  and  multi- 
plexers (DPMOl/VTUO) 


DECdataway  Controller 

A  controller  (ISBl  1 )  which  supervises  protocol  control  procedures  for  polling,  data  transfer,  and  er- 
ror recovery.  It  is  bus  master  for  63  DECdataway  addresses  and  a  broadcast  channel.  It  provides 
DMA  paths  for  each  of  the  DECdataway  addresses. 
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DECdataway  Controller  Driver 

See  SBDRV. 

DECdataH'ay  Remote  Interface 

A  communications  interface  (ISVl  1)  between  the  remote  processor  and  the  DECdalaway.  It  pro- 
vides for  DMA  transfers  for  the  computer  system  and  allows  for  booting  and  diagnostics. 


DIS 


A  DPM50  or  DPM23  DECdataway  Intelligent  Subsystem. 


Dispatcher 


A  program  or  set  of  programs  that  start  a  task  executing  in  response  to  a  request  from  a  terminal 
operator.  Specific  dispatchers  are  the  ATS  Dispatcher  or  the  FDM  Dispatcher. 

DLC 

The  Down-Line  Control  Task  (DLC)  loads  RSX-1  IS  system  images  into  the  DIS  memory  over  the 
DECdataway,  and  starts  the  system. 

Down-Line  Load 

1 .  The  process  of  loading  the  memory  of  a  DIS  with  an  appropriate  system  image  from  the  host. 

2.  The  process  of  loading  the  attributes  of  a  specific  terminal  from  the  host  to  a  terminal  multi- 
plexer. 

DPM 

1 .  Distributed  Plant  Management. 

2.  Distributed  Plant  Management  software  that  runs  under  RSX-1 1 M. 

DPM-PLUS 

Distributed  Plant  Management  software  that  runs  under  RSX-1  IM-PLUS. 

DPMOl 

A  terminal  multiplexer  for  the  DECdataway  that  can  support  up  to  four  terminals. 
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DPM23 

DECdataway  Programmable  Subsystem — a  DIS  based  on  an  LSI-1 1/23  processor. 


DPM50 


DECdataway  I/O  Subsystem— a  DIS  based  on  an  LSI-1 1  or  an  LSI-1 1/23  and  an  I/O  Control 
Module  (lOCM)  for  process  I/O  modules. 


DPM50H 

The  host  version  of  the  Network  ACP. 

See  Ancillary  Control  Process,  Network  ACP. 

DPM50R 

The  remote  version  of  the  Network  A,    . 
See  Network  ACP. 

FDM 

Factory  Data  Management. 

Host  Processor 

The  DECdataway  controllers  are  located  in  this  processor. 

Intertask  Communication 

The  exchange  of  information  between  a  pair  of  tasks:  one  in  the  host,  and  the  other  in  a  DIS. 


lOCM 


The  Input/Output  Control  Module  is  the  controller  for  the  I/O  modules  which  comprise  the  pro- 
cess control  I/O  subsystem. 


ISBll 

1 .  Microcode  file  for  the  DECdataway  controller. 

2.  See  DECdataway  CONTROLLER. 


t 
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Remote,  running  without  host,  restrictions,  6-4 
Remote,  using  without  host,  9-1 
Remote  interface,  DECdataway,  error  reporting,  8-1 
Remote  interface,  DECdataway  (ISVll),  1-2 
Remote  interface  driver,  DECdataway  (SVDRV).  1-3 
Remote  task,  cannot  connect,  11-1 
Remote  task,  no  change  in,  11-1 
RSX-11  QIOS  directive,  5-10 

SBDRV.  1-3 
Send  Interrupt 

errors,  3-12 

FORTRAN,  3-2 

MACRO-1 1,4-13 
Send  Interrupt  Message  and  Wait 

errors,  3-12 
Shuffling  tasks,  checkpointing  and 

in  FORTRAN,  3-2 

MACRO-1 1,4-! 
STA,  1-4 

Network  Status  Internal  Structure  Reporter,  7-7 
Status  information 

all  nodes,  FORTRAN,  5-3 

DIS  nodes  and  logical  connections,  7-6 

internal  structure,  network,  7-7 

network,  from  FORTRAN  tasks,  5-2 

network,  MACRO,  5-10 

node,  FORTRAN,  5-1 

node  name,  FORTRAN,  5-8 

node  number,  FORTRAN,  5-9 

pending  remote  connections,  FORTRAN,  5-6 

remote  connection,  MACRO,  5-1 1 

remote  information  by  base  port,  MACRO, 
example,  5-12 

remote  information  by  node  name,  MACRO, 
example,  5-14 

requesting  task  connection,  FORTRAN,  5-5 

requesting  task  connections,  FORTRAN,  5-3 

speciFied  node's  connections,  FORTRAN,  5-4 

specifled  task  connections,  FORTRAN,  5-7 

types  of,  FORTRAN,  5-1 
Stub-driver,  1-3 
SVDRV,  1-3,  8-1 
SYSLIB,  5-2 

System  image  on  floppy  disk,  putting,  9-1 
System  image  size,  limitations  on,  9-2 


Task 


corrupted,  6-7 
remote,  hung,  6-7 


user,  DLC  interface  and,  6-7 

See  also  DLC 
Task  development  errors,  11-1 
Task  priority,  11-3 
Task-totask  communication,  1-3 

See  also  network  software 
Tasks,  starting  in  remote,  11-2 
Tasks,  utility,  1-4 
Time 

remote,  different  from  host,  11-1 

remote,  reinitialized  command,  6-3 
Time-out 

AST,  example,  4-14 

AST,  MACRai  1,4-5 

notification,  2-4 

support,  interprocessor,  2-4 
/TM  switch,  6-6 
Transmit 

errors,  3-9 

FORTRAN,  3-2 

MACRO-1 1,4-11 
Transmit  and  Receive  data  integrity,  MACRO-1 1,  4-2 
Transmit  and  Wait  errors,  3-9 
Transmit  buffer,  restriction,  3-3 

ULD,  1-4,  7-1 

command  line,  7-2 

error  messages,  7-3 

examples,  7-2 

operations,  7-1 

switches,  7-1 

See  also  Crash  Dump  Analyzer  (CDA) 
Unconditional  boot  (/BO),  6-2 

See  also  DLC 
Unsolicited  Receive  AST 

example,  4-14 

restoring  stack  after,  MACRO-1 1,  4-5 
UPDUMP,  1-4,  7-4 

example,  7-5 

questions,  7-4,  7-5 

restrictions,  7-5 
Using  FORTRAN  calls  with  multiple  copies  of  DLC, 

6-16 
Using  MACRO  requests  with  multiple  copies  of  DLC, 

6-17 
Utility  tasks,  1-4 

/-VE  switch,  6-5 

Veriflcation,  boot  command,  bypassed,  6-5 
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ISVU 

See  DECdataway  Remote  Interface. 


Logical  Connection 

A  conversation  path  between  two  tasks — one  task  in  the  DPM  host,  and  the  other  task  in  a  DIS. 

Network  A  JP 

An  ancillary  control  process  that  transforms  network  requests  from  user  tasks  into  I/O  requests  over 
the  DECdataway.  One  network  ACP  (DPM50H)  runs  in  the  host  and  communicates  with  a  network 
AC?  (DPM50R)  running  in  each  DIS. 


NIDRV 


The  Network  Driver,  one  component  of  the  DPM  Network  Software.  It  is  supplied  in  both  host  and 
remote  versions,  along  with  the  Network  ACPs,  to  provide  intertask  communications. 


Node 

Ac:s. 

Node  Name 

An  alphanumeric  string  up  to  six  characters  long.  It  is  used  to  uniquely  identify  a  DIS. 


Node  Number 


Unit  number  of  a  DIS's  base  port. 


Peripheral  Control  Bytes  (PCBs) 


The  first  four  characters  of  every  message  sent  to  or  from  a  DECdataway  terminal  (RT80x, 
DPMOl/VTl  10)  i»iiJ  the  host  computer.  Used  to  exchange  control  and  status  information. 


Polling 

The  process  used  by  the  DECdataway  controller  to  interrogate  a  device  for  its  status. 


Port 


1 .  One  of  the  drops  on  a  DECdataway  controller  (maximum  of  64).  Devices  with  multiple  DEC- 
dataway addresses  locally  refer  to  them  as  ports  0  through  n;  for  example  DPMOl  port  0-3,  or 
DIS  ports  0  and  1. 
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2.  One  of  four  terminal  interfaces  within  a  DPMOl  /  VTl  10  multiplexer. 

3.  Control  and  status  registers  of  the  ISBl  1 ,  as  in  Port  Wait  Queue. 

4.  The  ISV 1 1  is  sometimes  referred  to  as  a  DECdataway  port. 


Remote 

ADIS. 

RT801/803/805 

Factory  data  collection  terminals. 


SBDRV 

The  RSX  driver  for  the  DECdataway  controller. 


SBTACP 

Sec  Terminal  ACP. 

SVDRV 

The  RSX  driver  for  the  DECdataway  remote  interface. 


Termiiud  ACP 


An  Ancillary  Control  Process  (SBTACP)  that  allows  tasks  using  standard  language  interfaces  to 
communicate  with  ATS  terminals. 

See  ATS. 


TnuiMctioii  Index 

A  one-  or  twoKligit  value  entered  by  the  operator  of  a  DPMOl  /VTl  10-connected  terminal,  which  is 
used  by  the  FDM  Dispatcher  in  searching  its  data  file  for  a  task  to  be  invoked. 


Transaction  Key 

1 .  The  key  (push-button)  on  the  face  of  an  RT803  terminal,  or  one  of  the  eight  keys  on  the  face  of 
an  RT80S  terminal,  used  to  select  a  transaction-handling  task. 

2.  A  value  used  by  the  FDM  Dispatcher  in  searching  its  data  file  for  a  task  to  be  invoked  in  re- 
sponse to  operator  action  at  an  RT80x  terminal. 
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Unit  Number 


A  number  between  0  and  377(8)  used  to  reference  one  DECdataway  address;  for  example,  47  used 
to  reference  SB47:. 


VTllO 

A  VTIOO  terminal  that  contains  a  DPMOl  multiplexer. 
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INDEX 


ACP,  1-3 

ACP-ACP  "handshake",  6-2 

See  also  /TM 
ACP-ACP  channel,  re-establishing,  in  DLC,  6-3 
Ancillary  Control  Processor,  DPM  Network,  1-3 
AST 

Communications  Channel  Time-Out,  MACRO-11, 
4-5 

Disconnect,MACRO-n,  4-4 

Interrupt  Message  Received,  MACRO-1 1,  4-4 

Unsolicited  Receive,  MACRO-ll,  4-5 
ASTXS,  example,  4-5 
Asynchronous  System  Traps  (ASTs) 

effect  on  task's  general  purpose  registers,  4-3 

effect  upon  stack  contents,  4-3 

See  alsu  ASTs 

restrictions  on  use,  MACRO-11,  4-3 

specified,  4-3 

types  of,  4-2 

See  also  ASTs 
Asynchronous  transmission,  and  messages,  2-3 
Automatic  reboot,  10-1 

fast,  example,  6-16 

Base  port,  1-2 

Boot,  from  a  floppy  disk,  9-1 

Boot  and  conditional  boot 

examples,  6-6 

overview,  6-2 
Building  a  FORTRAN  Resident  Library,  3-14 

CBC,  1-4 

CDA,  ULD  and  correct  version  for  RSX-1 IM-PLUS, 

7-1 
Channel 

communication,  2-1 

in  remote,  currently  open,  7-7 

opening,  inhibited,  6-5 
Checkpointing  and  shuffling  tasks,  FORTRAN,  3-2 
Checkpointing  and  shuffling  tasks,  MACRO-11,  4-1 
Close  LUN.  MACRail,  4-9 
Closing  a  channel  (/CL),  6-3 

See  also  DLC 
Communications 

channel,  2-2 

connection,  2-2 

functions  overview,  2-2 

hardware,  1-2 
Communications  Channel  Time-Out  AST 

restoring  stack  after,  MACRO-1 1,  4-5 


Communications  Facility,  DPM  Network's,  1-2 
Compiling  tasks,  FORTAN-IV-PLUS  restrictions,  3-2 
Completion  status 

in  FORTRAN,  3-3 

MACRO-11,  for  intertask  communications,  4-2 
Conditional  boot  (/BO),  6-2 

See  also  DLC 
Conditional  boot  and  boot 

examples,  6-6 

See  also  DLC 

overview,  6-2 

See  also  DLC 
CONFIG.  1-4 
Connect 

errors,  3-6 

FORTRAN,  3-1,  3-5 

MACRO-1 1,4-7 
Connect  status  block  array,  3-2 
Connection 

establishing,  2-2 

FORTRAN,  3-4 

idle,  FORTRAN,  3-4 

idle,  MACRO-11,  4-6 

limits  of,  2-1 

logical,  2-1 

MACRO-11,  4-5 

multiple,  2-3 
Connection  control 

FORTRAN,  NICONX,  3-1 

FORTRAN,  NIDISC,  3-1 

functions,  2-2 

MACRO,  4-5 

NICONX,  3-4 

NIDISC,  3-4 
Connection  status  information 

all  system  connections,  FORTRAN,  S-1 

one  connection,  FORTRAN,  5-1 

set  of  connections,  FORTRAN,  5-1 
Controller,  DECdataway  (ISBll),  1-2 
Controller  driver,  DECdaUway  (SBDRV),  1-3 

Data  integrity.  Transmit  and  Receive 

FORTRAN,  3-3 

MACRO-11,  4-2 
Data  transfer 

FORTRAN,  NIRCVD/NIRCVW/NIRCVC,  3-1 

FORTRAN.  NIXMIT/NIXMIW,  3-1 

FORTRAN,  NIRCVI,  3-2 

FORTRAN,  NISINT/NISINW,  3-2 

functions,  2-2 
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lO.RCV.  4-n 

lO.XMT,  4-10 

subroutines,  3-8 
Date,  remote,  different  from  host,  1 1 -I 
DDS,  1-4 

Debugging,  running  remote  without  host  in,  6-4 
DECdataway,  l-l 

DECdataway  Intelligent  Subsystems  (DIS),  1-1 
DECdataway  remote  interface  error  reporting,  8-1 
/DI  switch,  6-4 

Diagnostics,  restoring  normal  state,  6-5 
DIS,  1-1 

developing  software,  RSX-llM-PLUS  restrictions. 
11-3 

reboot,  10-1 

subsystem  components,  1-2 
DIS  ports,  off-line  on-line  errors  in  error  report,  1 1-2 
DISBOO,  10-1 

error  messages,  10-3,  1(M,  10-5 

example,  10-2 

operations,  10-1 

restrictions,  invocation,  10-1 
DISBOO. DAT  Example,  10-2 
Disconnect,  3-7 

errors,  3-7 

FORTRAN.  3-4 

FORTRAN,  NIDISC,  3-1 

MACRO-l  1,4-8 
Disconnect  AST 

and  checkpointable  tasks,  4-4 

effect  on  word  in  stack,  MACRO-l  1,  4-3 

example,  4-14 
Display  remote  memory,  7-4 
Display  remote  registers.  7-4 
DLC.  1-4.  6-1 

closing  a  channel  (/CL),  6-3 

conditional  boot  (/BI),  6-2 

error  returns  and  associated  messages,  6-11,6-12, 
6-14,6-15 

error  returns  to  ists,  6-10 

invoking,  6-1 

messages,  6-2,  6-3,  6-9,  6-10,  6-11,  6-12,  6-14,  6-15 

multiple  copies  of,  installing,  RSX-llM,  6-16 

multiple  copies  of,  using  FORTRAN  calls  with, 
6-16 

multiple  copies  of.  using  MACRO  requests  with, 
6-17 

opening  a  channel  (/OP).  6-4 

operations,  6-1 

severity  code  and  interpretation.  6-10 

unconditional  boot  (/BO),  6-2 

user  task  interface  to,  6-7 
See  also  boot  and  conditional  boot 
DLC,  invoking 

from  FORTRAN  tasks,  6-8 

from  MACRO  tasks,  6-9 
DLC  channel  control  command,  6-2 
DLC  switches 

default  settings,  6-4 
/DI.  6-5 
/-OP,  6-5 
/RE,  6-6 
/TM,  6-6 
/-VE,  6-5 
DLCMS.  6-9 


DLCMWS,  6-9 

example,  6-9 
Down-Line  Control  Utility  (DLC),  6-1 
Down-line  loading,  scheduled,  6-7 

See  also  DLC 
DPM,  1-1 

DPM,  V3.0  to  DPM  V4.0,  1 1-3 
DPM  Network  Ancillary  Control  Processor  (ACP),  1-3 
DPM23,  1-1 
DPM50.  1-1 
DPM50H,  1-3 
DPM50R.  1-3 

Driver,  network  (NIDRV),  1-3 
Drivers,  operating  system,  1-3 

Error  reporting,  8-1 

Error  reporting,  DECdataway  remote  interface.  8-1 

Errors 

lO.CLN.  4-9 

lO.CON.  4-7 

lO.CRJ,  4-10 

lO.DIS.  4-8 

lO.RCV.  4-12 

lO.XMI.  4-13 

lO.XMT.  4-11 

spurious.  11-1 
Establishing  logical  connection.  2-2 

FDLC.  6-8 
FDLCW.  6-8 

Floppy  disk,  media  compatibility.  9-2 
FORINT.  3-14 

FORTRAN  intertask  communication.  3-1 
FORTRAN  resident  library,  building.  3-14 
FORTRAN  support,  differences  from  MACRO-l  1,  2-4, 
2-5 

Get  Connections 

for  a  Node.  FORTRAN,  5-4 

for  a  Task,  FORTRAN,  5-7 

for  All  Nodes,  FORTRAN,  5-3 

for  One  LUN,  FORTRAN.  5-5 

Local  to  This  Task,  FORTRAN,  5-3 

Requested  for  this  Task,  FORTRAN,  5-6 
Get  Node  Name.  FORTRAN,  5-8 
Get  Node  Number,  FORTRAN,  5-9 
Get  Remote  Information.  MACRO,  5-1 1 

by  Base  Port,  5-12 

by  Node  Name,  5-13 

Hardware  confidence  check,  6-5 
Host  communications,  restoration,  9-2 

See  also  conditional  boot 
Host  crash,  remote  running,  1 1-2 
Host  messages,  word  alignment  of,  1 1-2 
Host  unavailable,  errors  in  DIS,  9-2 

I/O  status  block  array,  3-3 
Installing  multiple  copies  of  DLC,  6-16 
Interlocked  messsages.  2-3 
Interprocessor  time-out  support,  2-4,  6-6 

See  also  /  TM  switch 
Interrupt  Message 
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AST,  stack  contents,  MACRO-l  1.  4-4 
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See  also  lO.CON 
Intertask  communication,  2-1 

FORTRAN,  3-1 
Invoking  DLC 

from  FORTRAN  tasks.  6-8 

from  MACRO  tasks,  6-9 
lO.CLN,  Close  LUN,  MACRO,  4-8 
lO.CON 

Connect,  MACRO,  4-7 

example,  4-14 
lO.CRJ,  Reject  Connect  Request,  MACRO,  4-9 
lO.DIS 

Disconnect,  MACRO.  4-8 

example,  4-14 
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5-11 
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lO.GRI.  5-10 
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5-12 
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MACRO, 
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lO.XMI 

example,  4-14 

Send  Interrupt  Message,  MACRO.  4-13 
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ISVERR,  8-1 

message  contents,  8-1 
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Loading  system  image,  repeating,  6-6 
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Messages 
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6-15 

error,  when  task  invokes  DLC,  6-10 

interlocked.  2-3 

non-interlocked.  2-3 
Messages,  normal  and  interrupt 

differences,  2-3 
Messages  and  asynchronous  transmission,  2-3 
Micro-diagnostics,  invoking,  6-4 
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Network  Status  Reporter,  N  1ST  AT,  7-6 

NICONX 

Connect,  errors.  3-6 

Connect,  status  word  values  for  host  task,  3-5 

Connect,  status  word  values  for  remote  task,  3-5 

NIDISC,  Disconnect,  3-7 

NIDRV,  3-1 

NIGCAL  Get  Connections  for  ALL  Nodes, 
FORTRAN,  5-3 

NIGCLO  Get  Connections  Local  to  This  Task,  5-3 

NIGNNA,  example.  5-2 

NIRCVC.  Receive  checkpointed,  3-10 

NIRCVD,  Receive,  3-10 

NIRCVI.  Receive  Interrupt  Message,  3-13 

NIRCVW.  Receive  and  Wait,  3-10 
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connections,  number  of,  FORTRAN,  5-1 
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node  activity  status,  FORTRAN,  5-1 
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/-OP  switch,  6-5 
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Operating  system  drivers,  1-3 
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/RE  switch,  6-6 
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errors,  3-10 
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Receive  buffer,  word  alignment  in,  1 1-2 
Receive  checkpointed 

errors,  3-10 
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Receive  Interrupt  Message 

errors,  3-13 
Reject  Connect  Request,  MACRO-11,  4-10 
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